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Vorwort 


Seit Beginn der Computerentwicklung werden Com- 
puter nicht allein nur zur Lösung wissenschaftlicher 
Probleme und verwaltungstechnischer Aufgaben heran- 


gezogen, immer schon hat auch der Spielbereich einen 
hohen Stellenwert gehabt. Dies liegt wohl zu einem 
großen Teil daran, daß das Spielen gegen einen nahezu 


"unfehlbaren" Gegner von besonderem Reiz ist. 


Durch die schnelle Entwicklung und Verbreitung der 
Mikrocomputer mit ihren vielseitigen Möglichkeiten 
(insbesondere bei der Grafik- und Farbdarstellung sowie 
der Musikprogrammierung) wurden Spielprogramme für die 
große Zahl der Hobby-Anwender überhaupt erst zugänglich 
gemacht. 


Das vorliegende Buch stellt einige Programme aus 
den Bereichen "Spiele und Simulationen" vor, die über 
den Spaß an fertigen Spiel- und Simulationsprogrammen 
hinaus zum Entwickeln und Programmieren eigener Ideen 
anregen sollen. 


Einige Programme sind sehr umfangreich und deshalb 


wieder, wie bei unseren bereits erschienenen Büchern 
zum Commodore 64, auch auf Diskette oder Cassette er- 
haltlich. 


Für alle Anregungen, die einer Verbesserung dieses 
Buches dienen können, sind wir - wie immer - dankbar! 


Nun wünschen wir Ihnen viel Spaß mit den Spiel- 


programmen und hoffen, daß sie Ihnen auch einige An- 
regungen zu eigenen Weiterentwicklungen bieten werden! 


Die Autoren 
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Einleitung 


Das vorliegende Buch kann vom Leser in zweifacher 
Weise benutzt werden: Zunächst einmal enthält es eine 
abwechslungsreiche Sammlung von sofort lauffähigen 
Programmen, so daß der Benutzer nach dem Eintippen 
gleich mit dem Spielen beginnen kann. Darüberhinaus 
bietet es aufgrund der umfangreichen und detaillierten 
Programmbeschreibungen die Möglichkeit, die Spiele nach 
eigenen Vorstellungen zu verändern oder weiterzuent- 
wickeln. 


Das Spektrum der vorgestellten Programme reicht 
von einfachen Würfel- und Ratespielen bis hin zu 
solchen Spielen, bei denen dem Computer "Intelligenz" 
und "Lernfähigkeit" verliehen werden. 


Weiterhin sind auch einige Programme vertreten, 
die von den besonderen Fähigkeiten des Commodore 64 zur 
Grafik- und Musikprogrammierung Gebrauch machen. 


wir wünschen Ihnen nun viel Spaß beim Spielen mit 
Ihrem (und gegen Ihren) Computer und hoffen, daß unsere 
Programmauswahl Ihnen auch Anregungen zu eigenen 
Weiterentwicklungen bieten wird! 


Superhirn 


Dieses Spiel gehört wohl mittlerweile zu den klas- 
sischen Denkspielen. Da es in erster Linie mit Farben 
gespielt wird, vielleicht aber nicht jeder einen Farb- 
fernseher zur Verfügung hat, stellen wir gleichzeitig 
eine zweite Version vor, in der die Farben durch Symbo- 
le ersetzt werden. 


Zum Spielverlauf: 


Aus acht verschiedenen Farben (1. Variante) bzw. 
Symbolen (2. Variante) wählt der Computer zufällig fünf 
verschiedene aus. Die Aufgabe des Spielers besteht 
darin, diese vom Computer ausgewählten Farben (bzw. 
Symbole) und die Reihenfolge, in der sie angeordnet 
sind, herauszufinden. Dazu wählt er seinerseits fünf 
Farben aus. Nach dem Setzen wertet der Computer die 
Spielerfarben aus und zeigt zur Hilfestellung folgende 
Symbole an: 


Ein Kreuz für jede Farbe, die auch in der Auswahl 
des Computers vorkommt. Werden beispielweise drei 
Kreuze angezeigt, so stimmen drei der fünf Farben von 
Spieler und Computer überein, oder anders ausgedrückt, 
in der Auswahl des Spielers kommen zwei Farben vor, die 
vom Computer nicht gewählt wurden. 


Das zweite Symbol ist ein Stern. Er wird ausgege- 
ben für jede Farbe des Spielers, die auch in der Compu- 
terauswahl vorkommt und vom Spieler an die gleiche 
Stelle gesetzt wurde, wie sie der Computer für diese 
Farbe ausgewählt hat. So geben also z.B. drei Kreuze 
und ein Stern dem Spieler Auskunft darüber, daß er von 
den fünf zu suchenden Farben bereits vier gefunden hat, 
von denen sich außerdem schon eine an der richtigen 
Stelle befindet. 


Das Spiel ist beendet, wenn der Spieler genau die 
Kombination herausgefunden hat, die vom Computer ausge- 
wählt wurde, oder aber wenn der Spieler dieses Ziel 
nach zwanzig Zügen nicht erreicht hat. 


In der ursprünglichen Version dieses Spieles wur- 
den aus sechs Farben vier ausgewählt. Die Anzahl der 
Versuche war dabei auf zehn beschränkt. Fünf von acht 
Farben zu finden wie in unserem Programm, ist etwas 
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schwieriger. Das Programm läßt sich aber leicht auf die 
ursprüngliche Version wumändern. Sollte Ihnen jedoch 
unsere Version noch zu einfach sein, können Sie sich 
die Aufgabe wesentlich schwieriger gestalten, indem Sie 
nicht mehr fünf verschiedene Farben vom Computer aus- 
wählen lassen, sondern zulassen, daß eine oder mehrere 
Farben auch mehrfach vorkommen können. 
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Programmbeschreibung 


Zeile 10 - 200 
Kurze Spielerklärung. 


Zeile 220 
Farbgebung für Vordergrund- und Hintergrundfarbe. 


Zeile 250 - 300 

Acht verschiedenfarbige Kastchen werden an den 
linken Bildschirmrand gesetzt. Die benutzten Farben 
stehen in einer DATA-Zeile. 


Zeile 320 - 390 

Aus den acht möglichen Farben werden durch Zu- 
fallsentscheidungen (Zeile 330) fünf ausgewählt. In den 
Zeilen 340 bis 370 wird überprüft, ob die gerade ausge- 


wählte Farbe bereits schon einmal vorkam. Ist dies der 
Fall, wird eine neue Zufallszahl gebildet (Zeile 370). 
War die Farbe noch nicht gewahlt, wird ihr Wert der 
Feldvariablen A(I) zugewiesen (Zeile 380). Wer die Mög- 
lichkeit zulassen möchte, daß eine Farbe mehrfach aus- 
gewählt werden kann, braucht nur die Zeilen 340 bis 370 
wegzulassen. Dann muß allerdings auch die Spielerein- 


gabe abgeändert werden. 


Die Variablen A(0) bis A(4) geben also die Farben 
und ihre Reihenfolge an. 


Zeile 410 

Am oberen Bildschirmrand werden Fragezeichen ge- 
setzt, unter denen die Farbpunkte des Spielers stehen 
werden. 


Zeile 460 - 520 

Eine eventuell vorhandene frühere Eingabe wird 
gelöscht (Zeile 460) und zur Erinnerung ausgegeben, mit 
welchen Tasten die Eingabe abgeschlossen bzw. das Spiel 
abgebrochen werden kann. Anschließend wird der Cursor 
neben das erste obere Farbkästchen gesetzt (Zeilen 500 
bis 520). 


Zeile 530 - 610 

Die Spielereingabe wird mit den Cursortasten ge- 
steuert und überprüft. Dabei werden unzulässige Einga- 
ben abgefangen. Für eine nachträgliche Änderung der 
Eingabe kann der Cursor einfach an die richtige Posi- 


12 


tion gebracht werden. (Zeilen 590 und 600 überprüfen, 
ob die Cursortasten gedrückt wurden). Mit 'Return' wird 
die Eingabe beendet (Abfrage in Zeile 610). 


Zeile 620 - 720 
Reicht die Geduld des Spielers zur Beendigung des 


Spieles nicht aus, kann er jederzeit abbrechen und 
sich die Computerauswahl ansehen. (Abfrage in Zeile 
620). 


Zeile 740 - 800 

Die Spielereingabe wird übernommen, und die vom 
Spieler gewählten Farben werden den Feldvariablen B(I) 
zugewiesen. 


Zeile 810 - 880 

Nochmalige Überprüfung der Spielereingabe nach der 
Anzahl der eingegebenen Farben. Für die Variante, in 
der eine Farbe mehrfach vorkommen darf, muß diese Über- 
prüfung wegfallen. 


Zeile 890 - 930 

Setzen der ausgewählten Farben und Löschen der 
Spielereingabe (Zeile 930). Der Zähler für die Anzahl 
der Versuche wird um 1 erhöht. 


Sollen Farbwiederholungen zugelassen sein, muß 
hier vor dem Setzen (z.B. win Zeile 905) überprüft 
werden, ob B(I) einen Wert hat, der größer ist als 


Null. Ist dies nicht der Fall, wird kein Farbkreis 
gesetzt (Sprung nach Zeile 920). 


Bei dieser Version müßte also nach jeder Eingabe 
für eine Farbe 'Return' gedrückt und diese Farbe sofort 


an die richtige Stelle gesetzt werden, um Zu ermög- 
lichen, daß dieselbe Farbe an verschiedenen Stellen 
vorkommen kann. Zusätzlich dürfte V erst dann erhöht 


wurden, wenn 5 Farben gesetzt werden. 


Zeile 940 - 1030 

Die vom Spieler gewählten Farben werden mit denen 
des Computers verglichen (Zeilen 990 und 1010) und zur 
Hilfestellung ausgewertet, wie es in der Spielerkläarung 
beschrieben ist. 
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Zeile 1050 

Ist die richtige Kombination noch nicht erraten 
worden und die Anzahl der Versuche kleiner als zwanzig, 
geht das Programm zur nächsten Spielerabfrage über. 


Zeile 1060 - 1260 

Wurde die richtige Kombination in weniger als 
zwanzig Versuchen erraten oder dieses Ziel nicht er- 
reicht, endet das Programm bzw. verzweigt zu einem 
neuen Spielanfang. 


77777 VERSUCH 
Leu + 1 
Lehe +44 2 
“oh +44 3 
yhkEr +44 4 
Leite +49 5 

es Eh + & 
Eh L 8er 7 

IL 


3% HERZLICHEN GLUECKWUNSCH'! 


#* SIE HABEN MIT 7 VERSUCHEN 
DIE KOMBINATION ERRATEN. 


44 
NOCH EIN 
i+ SPIEL 
N ? 
2% 


EINGABE BEENDET -> RETURN 
LDESUNG -> L 
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REM. „ooonoouncn uununenenunnsunnnune ennuuenennunne en - SUPERHIRN 
PRINT"T5"M 3 SUPERHIRN z 

PRINT"M BEI DIESEM SPIEL WAEHLT DER COMPUTER" 

PRINT" VON 8 FARBEN 5 AUS." 

PRINT" IHRE AUFGABE IST ES, DIE AUSGEWAEHLTEN” 

FRINT" FARBEN UND DIE REIHENFOLGE IHRER" 

FRINT" ANORDNUNG ZU ERRATEN." 

PRINT"M VON DEN FARBKAESTCHEN AM LINKEN BILD-" 

PRINT" SCHIRMRAND KOENNEN SIE 5 IHRER REIHEN-" 


100 
110 
1208 
130 
149 
158 
168 
170 
18 
198 
209 
218 
220 
256 
248 
250 
268 
270 
280 
290 
380 


PRINT" FOLGE ENTSPRECHEND NUMERIEREN. DABEI" 

PRINT" KOENNEN SIE MIT DEN CURSORTASTEN" 

PRINT" NACH OBEN UND UNTEN GEHEN.” 

PRINT"® NACH DEM SETZEN DER FARBEN GIBT IHNEN" 

PRINT" DER COMPUTER FOLGENDE HILFEN: " 

PRINT CHR$(1595" +& FUER JEDE RICHTIGE FARBE," 

PRINT CHR$(15593;" #« FUER JEDE RICHTIGE FARBE AN DER" 
PRINT" RICHTIGEN POSITION." 

PRINT CHR$(154);5"M VIEL ERFOLG BEIM KOMBINIEREN!" 
PRINT"® (WEITER MIT TASTENDRUCK) " 

GET Z$: IF Z$="" THEN GOTO 200 

REM. „sonununszunan .nnunnunuuenuunnsunsununnennnenn «SPIELFELD 


POKE 53280,9: POKE 535281,11 


PRINT "I’5CHR$ (15935 

REM. .... .ununnnesunn sueunnunnnennn nn.  FÄRBKAESTCHEN AM RAND 
FOR F=6 TD 7: READ FA 

FOR I=® T0 2 

POKE 1305+F%#B06+1,224: POKE 55577+F%80+1,FA 

NEXT I 

NEXT F 


DATA 1,2,3,4,5,7,8,14 
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310 
320 
3358 
348 
358 
368 
370 
380 
390 
400 
410 
420 
430 
440 
458 
460 
470 
480 
490 
508 
510 
520 
530 
540 
559 
568 
570 
580 
598 
688 
618 
628 


REM .onuununsennsnenunn ZUFAELLIGE AUSWAHL DER FARBREIHENFOLGE 


FOR I=8 TO 4 
X=INT{RND(1)#14+1): IF (X=6 OR (X>8 AND X<14)) THEN 60T0 336 
K=® | 

FOR J=@ TO I-i: IF A(J)=X THEN K=1 

NEXT I 

IF K£>@ THEN GOTO 330 

ACI)=X 


NEXT I 
REM..oosunueonne Bonnunnunnsnunnn .nnesununnnnnn.  FRÄGEZEICHEN 


FOR I=® TO 4: POKE 1034+2*1,63: POKE 55306+2#1,15: NEXT I 
PRINT TAB (27) 5 "VERSUCH"; 


REM... uounesuune er „nurunnennen.n.EINGÄBE DES SPIELERS 


FOR I=1 TD 21: POKE 1024+1#48, 32: POKE 55296+1#48,15: NEXT I 
PRINT"=3"5=2 FOR I=8 TO 22: PRINT CHR${17)5: NEXT I 
PRINT"EINGABE BEENDET -> RETURN" 

PRINT"LOESUNG -> L"5 

CZ=7: C5=8 

CZ=C7+DZ 

POKE(1024+40*&CZ+C5), (PEEK(1024+48*C7+C5)+128) AND 255 

IF DZ=8® THEN GOTO 550 

POKE (1624+40% (CZ-DZ) +C5) „ {PEEK (1824+48%# (CZ-DZ)+C5S) AND 127 
KF=0: GET F$: CU$=CHR$ (17): CO$=CHR$ (145): CR$=CHR$ (13) 

IF {F$<>CU$ AND F$<>CO$ AND F$<>CR$ AND F$<>" ") THEN KF=1 
IF{tt{KF=1 AND F$<>"L") AND VAL(F$)=8) OR F$="")THEN GOTDO 550 
PRINT" Sen "= PRINT" "5 

IF F$=CU$ THEN DZ=2: GOTD 518 

IF F$=C0$ THEN DZ=-2: GOTD 5198 

IF F$=CR$ THEN GOTDO 748 

IF F$<>"L" THEN GOTO 720 
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REM. „uosenunuoenes .unununennnes .nurneuusnnune LOESUNG ZEIGEN 


FOR I=6 TO 4 

POKE 1054+2#*1,81: POKE 55306+2#1,A{]) 

NEXT I 

PRINT "SLDESUNG: " 

PRINT"3"5:2 FOR I=1 TO V+4: PRINT CHR$(17)5: NEXT I 
PRINT TAB(&);" (WEITER -> TASTE)" 

GET Z$: IF Z$="" THEN GOTD 708 

G0T0 1218 

POKE (1024+48*CZ+C5) ,ASC{F$): DZ=2: GOTO 519 

REM. „oo... .urnnuorueennune nu... SETZEN DER GEWAEHLTEN FARBEN 
KR=8: FOR F=8 TO 72 B{F)=0: NEXT F 

FOR F=8 T0 7 

PE=PEEK (1304+Fx*89) 

IF PE>176 AND PE<{182 THEN PE=PE-128 

IF PE<497 OR PE>S3 THEN GOTO 880 

B {PE-49) =PEEK (55577+F%80) AND1S 

NEXT F 

KD=9 

FOR F=6 TO 7: IF (B{tFP)>0) THEN KR=KR+i 


IF F=8 THEN G0TD 868 

FOR I=8 TO F-1: IF (B{DD=B(F) AND B{TII<>0) THEN KD=i1 
NEXT I 

NEXT F 

IF KD=® AND KR=5 THEN GOTO 896 

PRINT "ft FALSCHE": PRINT" EINGABE!"5: DZ=#: GOTD 469 
v=V+1 

FOR I=0 TO 4 

POKE 1074+V#40+2#1,81: POKE 55346+V#40+2%#1,B(I) 

NEXT I 

FOR I=® TO 23: POKE 55296+1#40, 11: NEXT I 
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940 REM 2.» ns oo an 3 = BE 2 SB SB SB SS RS U 2 a BB m 5 u © - ss ss za as a sm sa as na 3 2» u usa nn 8 AUSWERTUNG 


958 PRINT"3"; 
968 FOR I=6 TO Vz PRINT CHR$(17)5=: NEXT I: PRINT TAB(21);5 
978 5=0 

988 FOR 1=0 TO 4 

998 IF B{I)=A(I) THEN PRINT CHR$(155)5"#"5: S=S+1: GOTD 1030 
1888 FÜR J=® TO 4 

101@ IF (B{TD)=A(J) AND I<>J) THEN PRINT CHR$ (155) 3"+"5 

102@ NEXT J 

1038 NEXT I 

1048 PRINT TAB(29) 343 

1058 IF 5<>5 AND V<2® THEN PRINT CHR$(155)5: GOTO 440 

1060 REM. nenneeennuen NEE BERGER NE ERNEE 2... BEWONNEN? 
1870 IF V=28 THEN G0TO 1178 

1088 FRINT CHR$ (17) 

167@ PRINT TAB(6) 5CHR$ (129) 5 "NHERZLICHEN GLUECKWUNSCH! " 
1180 PRINT TAB(6) 5 CHR$ (155) 5 "MSIE HABEN MIT"5V5 "VERSUCHEN" 
1118 PRINT TAB(6);"DIE KOMBINATION ERRATEN. " 

1128 G0TO 1210 

1130 FOR I=® TO 4 

1148 POKE 1034+2*1,81: POKE 55306+2#I,A(I) 

1150 NEXT I 

1166 PRINT "SLOESUNG: " 

1176 PRINT "S1SIIninieii]" 5 TAB (27) 5 CHR$ (155) 5 "LEIDER HABEN" 
1186 PRINT TAB(27)5 "SIE DIE" 

119@ PRINT TAB{27)5 "RICHTIGE": PRINT TAB(27) 5 "KOMBINATION" 
1208 PRINT TAB(27)5 "NICHT GEFUN-": PRINT TAB(27)5"DEN. " 
1218 PRINTTAB(27)5" . 

1228 PRINT TAB(27)5"NOCH EIN": PRINT TAB(27) 5 "SPIEL" 

"1230 PRINT TAB{27)5: INPUT"J/N "3JN$ 

1248 IF JN$="J" THEN GOTO 1268 

1258 PRINT""5CHR$(154)5: POKE 53280,14: POKE 53281,6: END 
1260 RESTORE: GOTO 218 


READY. 
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Programmänderungen für die 2. Version 


Da sich das Superhirn-Spiel in der bisher be- 
schriebenen Fassung nur für eine Farbausgabe eignet, 
stellen wir hier die Änderungen vor, die notwendig 
sind, um das Spiel auch "in schwarzweiß" spielen zu 
können. Dabei wurden statt der Farbkreise Commodore- 
Grafik-Symbole verwendet. Dadurch müssen einige Poke- 
Anweisungen und CHRS-Werte geändert werden, außerdem 
ist die Auswahl der Computersymbole verschieden. Da es 
sich aber nur um Änderungen weniger Zeilen handelt, ist 
hier nicht noch einmal das gesamte Programm abgedruckt. 


210 REM. „.-ouueneuoeenseennn nennen nn er eenne SPIELFELD 
228 POKE 535280,9: POKE 53281,195 
238 PRINT "T’5CHR$ 3195 


258 FOR F=@ TO 7: READ FA 
268 FOKE 1396+F#80,FA: POKE 539578+F%80,2 


270 NEXT F 
280 DATA 65,76,81,83, 88,99, 102,105 
DO REMeneannunnn- zn aunnnnnee. ZUFAELLIGE AUSWAHL DER SYMBOLE 


388 FOR I=@ TO 4 

318 RESTORE 

328 X=INT{RND(1)*7+1) 

35@ FOR 5=1 TO X: READ SY=: NEXT 5 

346 K=® 

358 FOR J=8 TO I-i: IF AlJ=5Y THEN K=1 

368 NEXT J 

378 IF K<S>@ THEN GOTO 318 

386 A{II=5Y 

37@ NEXT I 

400 REM... -ouonuunuusnonununenn Lunnnnununnnne .nnnunn. FRAGEZEICHEN 
416 FOR I=® TO 4: FPOKE 1034+2#1,63: POKE 553066+2#1,22 NEXT I 
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468 FOR I=1 TO 21: POKE 1024+1*49, 32: POKE 55296+1#40,6: NEXT I 
658 FOKE 1934+2#1,At(I): POKE 55306+2#1,2 

798 B{FE-49)=FEEK (1306+F*89) 

918 FOKE 1074+V*40+2#1,B(1D): POKE S5346+V#40+2%*1,2 

930 FORI=® TO 23: POKE 55296+1#40,15: NEXT I 

798 IF B{I)=AtI) THEN PRINT CHR$(31)5"*"5: 5=5+1: GOTD 1950 
1818 IF {B{DD=AtJ) ANDI<S>J) THEN PRINT CHR$(31)5"+"5 

1168 PRINT TAB(6) 5CHR$(31)5"®WSIE HABEN MIT"; V5 "VERSUCHEN" 

1148 POKE 1034+2#1,AtI): POKE S553504+2#1,2 


1178 PRINT" Siairtelnieisie" 5 TAB(Z7ISCHR$ (31) 5 "LEIDER HABEN" 
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VERSUCH 


a er er 


«Le +4 


"ah +4 


BE 


EB BC ze 


Lehe ++ 
Lehe +4 
Ley+ä 


++++ 


LEIDER HABEN 


mr ++ 
+ hk| #%++ SIE DIE 


2 
4. 
“ 


RICHTIGE 


ErLe + 


Be 
BZ 


A 


KOMBINATION 


Era x+* 
AFrEOöOCH+H 


r+ 


NICHT GEFUN- 


Pr 
dh 3% 
RS 


whe+L +44 
ALF4e ++ 


SCHE 2 


NOCH EIN 


2 


Docs 


17 
18 
19 
20 


+44+4+ JUN 7? 


... .. 
.. s 


“Er +4 
hen +4 


EINGABE BEENDET -> RETURN 


LDESUNG -> L 
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Kuhschwanzspiel 


würfelspiele gehören zu den ältesten und meist 
verbreiteten Spielen überhaupt. Da es sich bei fast 
allen Varianten um Glücksspiele um Geld handelte, bei 
denen oft buchstäblich Haus und Hof verspielt wurde 
(wie es schon Tacitus bei den Germanen erlebte), hatten 
sie immer wieder über lange Zeit nicht nur einen sehr 
schlechten Ruf, sondern waren 2.T. sogar verboten. Auf 
der anderen Seite gehörte z.B. im 17. Jahrhundert die 
Kunstfertigkeit beim Würfelspielen zur Pflichtausbil- 
dung eines Kavaliers. 


Unser nächstes Programm stellt ein Würfelspiel 
vor, das unter dem Namen 'Kuhschwanz' bekannt ist. 
Allerdings brauchen Sie bei unserer Version nicht zu 
befürchten, größere Geldsummen zu verlieren! 


Bei diesem Spiel hat jeder der Spieler 21 Streich- 


hölzer (oder andere Spielsteine), die er in Form eines 
"Kuhschwanzes" vor sich auslegt. (Der Bildschirmaus- 
druck zeigt die Anordnung der Streichhölzer.) Die Spie- 


ler würfeln der Reihenfolge nach. Die Streichholzreihe, 
die der gewürfelten Augenzahl entspricht, darf der 
Spieler entfernen. Würfelt ein Spieler eine Augenzahl, 
die er bereits vorher schon einmal hatte, kann er 
natürlich keine Streichhölzer mehr entfernen, und der 
nächste Spieler ist an der Reihe. 


Gewonnen hat der Spieler, der als erster seinen 
gesamten "Kuhschwanz'" abgeräumt hat. Er bekommt die 
Anzahl der bei seinen Gegenspielern noch übrig geblie- 
benen Streichhölzer als Pluspunkte notiert. 


Wegen des beschränkten Platzes auf dem Bildschirm 


ist in unserem Programm die Zahl der Spieler auf zwei 
beschränkt; einer der Spieler ist dabei der Computer. 
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Programmbeschreibung 


Zeile 10 - 160 
Erläuternder Text und Abfrage, ob der Spieler 
beginnen will. 


Zeile 170 
In einer Schleife werden für beide Spieler die 
sechs Streichholzreihen als vorhanden notiert. 


Zeile 180 - 340 

Die Streichhölzer werden aus Commodore-Grafik- 
Zeichen zusammengesetzt, und die zugehörigen Werte in 
Bildschirm- und Farbspeicher gepoket. 


Zeile 350 - 430 

Würfel werden aus Commodore-Zeichen zusammenge- 
setzt und entsprechend der Augenzahl den Feldvariablen 
WS(I) zugewiesen. 


Zeile 510 - 520 
Zufällige Auswahl einer Augenzahl des Würfels bei 
Spielbeginn. 


Zeile 560 - 570 
Beginn der Spielschleife, mit SP = Spieler und GS 
= Gegenspieler. 


Zeile 620 - 710 

Zufallsauswahl des Wurfes im Spielverlauf. Vor der 
ausgewählten Augenzahl werden verschiedene Seiten des 
würfels gezeigt (Zeilen 630 bis 680). 


Zeile 730 
Sprung in das Unterprogramm zum Entfernen einer 
Streichholzreihe. 


Zeile 740 - 750 
Wiederholung der Prozedur für den nächsten Spieler 
und Beginn einer neuen Runde. 


Zeile 760 - 840 


Ausgabe des Spielergebnisses und Verzweigung zum 
erneuten Spielanfang oder zum Spielende. 
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Zeile 850 - 890 

Überprüfung, ob die der gewürfelten Augenzahl 
entsprechende Streichholzreihe bei dem Spieler, der am 
Zug ist, noch existiert. 


Zeile 900 - 1000 
Ist die Streichholzreihe noch vorhanden, wird sie 
vom Bildschirm gelöscht und das Ergebnis festgehalten. 


Zeile 1010 - 1120 
Es wird überprüft, ob einer der Spieler bereits 
alle seine Streichholzreihen entfernt hat. 


Zeile 1130 - 1230 

Die Zahl der beim Gegner übriggebliebenen Streich- 
hölzer wird errechnet und diese Zahl zur bisherigen 
Punktezahl des Gewinners addiert (Gl: Punktzahl des 
Computers, G2: des Spielers). Anschließend erfolgt 
Rücksprung in das Hauptprogramm. 


EFUHSCHWÄN 
VIII 
1aul u 
nl ul 


) e 
u ' 
COMFUTER SFIELER 
WIERFELN -= TASTE 
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Flußdiagramm:Kuhschwanzspiel 


Peseniren 7 


Spielerklarung 


Spielfelcl 


FOR 1-1 T06 


A(I)=I. BI)=I 


nachstes I 


FOR SP=- ATOLL 


gedrückt 
d 


ya 


Wahl einer Zufalls 
zahl W zwischen 


A und 6 


Anzeige des Wurfes 
W tür Spieler SP 


Entfernen der 
Streichholzreihe W, 
AlW) bzw. B(w) = ® 


nachster Spieler 
sp 


Ausgabe des 


Sıegers uncl Punkte, 
stand 


10 

20 

50 

40 

30 

60 

78 

88 

78 

100 
119 
120 
1350 
148 
150 
168 
170 
180 
196 
2008 
218 
220 
230 
2408 
258 
268 
270 
280 
290 
308 
318 
320 
338 
348 


REM.... 


EEE ununueunununeneneneunnnenu nn nn» KÜNHSCHWANZ 


PRINT" 3 KUHSCHWANZ = 


PRINT: 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 


PRINT" BEI DIESEM SPIEL SPIELEN SIE GEGEN" 
DEN COMPUTER. JEDER SPIELER HAT 21" 
STREICHHOELZER — IN FORM EINES KUH-" 
SCHWANZES - ZUR VERFUEGUNG. ABWECH-" 
SELND WIRD GEWUERFELT UND DIE REIHE," 

DIE DER GEWUERFELTEN ZAHL ENTSPRICHT," 
ENTFERNT. WER SEINEN KUHSCHWANZ ZUERST" 


PRINT" GANZ ABGERAEUMT HAT, HAT GEWONNEN. ER" 
PRINT" BEKOMMT SOVIELE PLUSPUNKTE, WIE BEIM" 


PRINT 


" GEGENSPIELER HOELZER UEBRIGGEBLIEBEN" 


PRINT" SIND." 

PRINT" EININIRIM" 

INPUT" WOLLEN SIE ANFANGEN (J/N"5A$ 

IF At<>"J" AND A${>"N" THEN PRINT"'TI": GOTO 159 


FOR I= 


REM. =... 


1 TOD 6: AtD=I: B{D=I: NEXT I 
esse eieieseeeieieissssSrlel FELD 


POKE 53281,14 
PRINT" IT5SCHR$ (51); TAB(10);5"KUHSCHWAN Z" 


BS=1107: FS5=55379 

FOR Z=6 TO 1 STEP -1: Y=6-7Z 

BS{Z)=B5S+Y#121: FSCtZI=FS+Y#121 

FOR I=8 TO Z-1 

FOR J=6 TO 1 

POKE BS{(ZY+1I*#2+J#23,812 POKE FStZI +182+J%25,2 

FOR K=1 TO 2 

POKE BS{Z)+K#40+1#2+J#23,103: POKE FSCZI+K#40+1*2+J%25,1 


POKE BS{Z)+K#40+1#2+J#23-1,103: POKE FS(Z)+K#40+1#2+J#23-1,1 
NEXT K 

POKE BS{Z)+K#40+1#2+J#23,99: POKE FS(Z)+K#40+182+J%#23,1 
NEXT J 

NEXT I 

NEXT Z 
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REM. sun BB 8 2 mg a Rn 2a a a BR BB BB a zz u u a rn aaa a za m nm a m a m an 5 5 a u nm = „ma as aan 8 WUERFEL 


Ws (1)="MERBNEMI| ITENEEMI| Se m FERN | I" 

Ws (2)=" MEEEEII Me m ıiTERERm| IMIEEEEm | Sem TER" 
WS(3)="TIREENIIe m ıTEREERI| 30 m TENREEI| Som TENnum" 
Ws (4)=" IHREN | Se ou TERN | UNENEII Se om TENNERI" 


WS(S)="MENRERI 6 om |TENEREI| 0 m |TEREENI Se om |TENBEMI" 
WS(6)="MEEREEII Se om |TERNEEM | 3a om |TEREEEM | om TIERE" 


WE(7)=" MIENBEI TIBBENI MUERBEI INNEN! ” 
FOR I=1 TO 6: W$(T)="W: WEI) +" —— "2 NEXT I 
REM...... Deuueneou une een nee ern uueeu nenn nun ne SPIELVERLAUF 


IF NS$="" THEN GOTO 4890 
IF NS$="J" AND A$="J" THEN A$="N": G6OTO 480 

IF NS$="J" AND A$="N" THEN A$="J" 

Ti1)=23: Tt2)=12: IF A$="N" THEN T(i)=12: T(2)=23 
PRINT"="5 

FOR I=1 TO 16: PRINT: NEXT I 

W=INT{RND (1)*6) +1 

PRINT TAB{T{1))3W$ (W) 5SCHR$ (155) 5 

PRINT"=S": FOR Z=1 TO 21: PRINT CHR$(17)5:NEXTZ 
PRINT TAB(4) 5 "COMPUTER" 5 TAB (28) 5 "SPIELER" 
PRINT:PRINT TAB(12) 53 "WUERFELN -> TASTE"; 

FOR SP=1 TO 2 

65=3-5P: SE=® 

GET Z$: IF Z$="" THEN GDTD 580 

PRINT" S" 

FOR Z=1 TO 15: PRINT: NEXT Z 

PRINT TAB(T(65))5W$(7)5 

W=INT (RND (1) #6) +1 

FOR J=1 TD 28 

PRINT" "5 

FOR I=1 TO 16: PRINT: NEXT I 

PRINT TAB(T(SP)) 5W$(J-6* INT (J/6) +1)5: 

FOR ZT=1 TO 20: NEXT ZT 

NEXT J 
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698 
7908 
710 
720 
738 
748 
750 
768 
770 
780 
778 
808 
810 
829 
83508 
848 
850 
868 
878 
880 
8979 
7098 
118 
920 
930 
7408 
959 
960 
770 
980 
998 


PRINT" S"; 
FOR I=1 TO 16: PRINT: NEXT I 
PRINT TAB(T(SP))5W$(W) 

FOR ZT=1 TD 200: NEXT ZT 


GOSUB 850: IF SE=1 THEN 60TD 776 

NEXT SP 

GOTO 568 

REM. oonounns Bonureunununsnunsenennnee nn „nunnnnnnn.. SPIELENDE 
PRINT": PRINT: PRINT 


PRINT 6$5" DIESES SPIEL MIT";P5 "PUNKTEN" 


PRINT" GEWONNEN. " 

PRINT: PRINT"DAMIT STEHT ES"5625 "ZU"561;"FUER SIE." 

PRINT: PRINT: PRINT: INPUT"NOCH EIN SPIEL J/N"3NS$ 

IF NS$="N" THEN END 

GOTO 168 

END 

REM. „nunosunnennnnennnnnn a. AUSFUEHRUNG DER GEWUERFELTEN ZAHL 
IF ((Tt1)=23 AND SP=1) OR (T(1)=12 AND SP=2)) THEN GOTO 890 
T=8: IF AtW=8 THEN GDTO 1030 

GOTD 9708 

T=1: IF B{W=8 THEN GOTO 1086 

REM. „oeouuonnnnonenunsunuonsunnnnnunune „nennen unenn. LÜESCHEN 
FOR I=6 TO W-1 


POKE FS({W) +T#*23+1#2,14 

FOR K=1 TO 2 

POKE FS{W) +T#25+K#40+1%2-1,14 
POKE FS(W) +T*25+K#40+1#2,14 
NEXT K 

POKE FS(W) +T#25+K#40+1#2,14 
NEXT I 

IF T=80 THEN AtW)=® 


1080 IF T=1 THEN B{W=8 
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1818 
1820 
18350 
18408 
1050 
18458 
1970 
1088 
1890 
1100 
1110 
1120 
1150 
1148 
1150 
1168 
1170 
1180 
1190 
1200 
1210 
1220 
1250 


REM. oocn0s nunennsneneuusenuununnn „UEBERPRUEFEN OB SPIELENDE 
IF T=1 THEN GOTO 1960 

KD=@: FOR Z=1 TO 6 

IF AtZI<>® THEN KD=1 

NEXT Z 

IF kKD=1 THEN RETURN 

6$="ICH HABE": GOTO 1130 

KD=0: FOR Z=1 TO 6 

IF B{ZI<S>® THEN KD=1 

NEXT Z 

IF KD=1 THEN RETURN 

6$="SIE HABEN" 

REM. oauusunusensennenne ununonnnununnns .onesuuunns SPIELENDE 
6$=CHR$ (155) +6$ 

SE=1 

P=6 

FOR Z=1 TO 6 

=PH+AIZI+BI(Z) 

NEXT Z 

IF ASCtG6$)=73 THEN Gi=G1+P: GOTO 1228 
62=62+P 

IF P>=PM THEN PM=P 

RETURN 


READY. 
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SPIELER 


WUERFELN -> TASTE 


y Z | 


KÜUHSCHWAÄN 


euer menmne beennn mu namen nennen rn nen men nme nassen une 


EOMFUTER 
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Memory 


Ein weit verbreitetes Gedächtnisspiel ist das 
Memory-Spiel, das in den verschiedensten Versionen 
gespielt wird. 


In der hier vorgestellten Version mischt der Con- 


puter 30 "Karten", die als Symbol jeweils eine von 15 
verschiedenen Zahlen bzw. Buchstaben tragen. Jedes 
Symbol ist also genau zweimal vorhanden. Nach dem 


Mischen werden die "Karten" auf dem Bildschirm verdeckt 
ausgegeben, also mit der Rückseite nach oben. 


Die Aufgabe des Spielers (oder mehrerer Spieler) 
besteht nun darin, die zusammengehörigen Kartenpaare 
herauszufinden. Dazu werden nacheinander von jedem 
Teilnehmer zwei Karten aufgedeckt (durch Eingabe der 
Koordinaten der Karten). Hat ein Spieler ein Kartenpaar 
gefunden, wird seine Punktzahl erhöht, das aufgedeckte 
Kartenpaar aus dem Spiel entfernt, und derselbe Spieler 
darf sein Glück noch einmal versuchen. Werden zwei ver- 
schiedene "Karten" aufgedeckt, ist der nächste Spieler 
an der Reihe. 


Das Spiel ist beendet, wenn alle 15 "Kartenpaare" 
gefunden wurden. Gewonnen hat dann natürlich der Spie- 
ler, der die meisten Paare entdecken konnte. 


Statt der Buchstaben und Zahlen als Kartensymbole 
können natürlich auch Commodore-Grafik-Zeichen benutzt 


werden. Da diese sich schwerer unterscheiden lassen, 
wird die Ihnen abverlangte Gedächtnisleistung etwas 
größer. Es können auch kleinere Karten definiert wer- 


den, so daß mehr Kartenpaare gefunden werden müssen als 
in diesem Programn. 
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Programmbeschreibung 


Zeile 20 - 230 

Kurze Spielerklärung und Abfrage der gewünschten 
Spielerzahl sowie der Namen der Teilnehmer. In Zeile 
190 werden die Variablen für Namen der Spieler, Treffer 
pro Spieler, Karten und auszugebende Buchstaben- und 
Zahlenpaare dimensioniert. 


Zeile 240 - 350 
Ausgabe der "Spielkarten", jeweils als Quadrate 
aus 3*3 Bildschirmkästchen. 


Zeile 360 - 410 
Für die Koordinatenangabe werden die Spielfeldrän- 
der mit Zahlen und Buchstaben beschriftet. 


Zeile 420 - 520 

Die Zahlen- und Buchstabenpaare werden aus den 
DATA-Zeilen eingelesen und mit Zufallszahlen auf die 
Karten verteilt. 


Zeile 540 

Die Variable V% zahlt die Runden, die zum Auffin- 
den aller zusammengehörenden Kartenpaare gebraucht wer- 
den. 


Zeile 560 - 640 

Eine eventuelle Eingabe des vorigen Spielers wird 
gelöscht und der nächste Teilnehmer zur Eingabe aufge- 
fordert. 


Zeile 650 

Die Variable TZ dient zur Überprüfung der angege- 
benen Kartenpaare. Ist TZ gleich Null, wurde kein pas- 
sendes Paar gefunden. Ist TZ gleich Eins, hatte der 
vorige Spieler zwei zusammengehörige Karten entdeckt. 


Zeile 660 - 730 
Ein eventuell vom vorigen Spieler gefundenes Kar- 
tenpaar wird aus dem Spiel genommen. 


Zeile 740 


Falls das gerade entfernte Kartenpaar das letzte 
war, wird zum Spielende gesprungen. 
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Zeile 750 — 810 
Eingabe des Spielers, der an der Reihe ist, für 
seine I. Karte und Überprüfung der Eingabe. 


Zeile 820 - 880 
Die im letzten Zug aufgedeckten Karten werden 
wieder umgedreht. 


Zeile 890 
Notierung des Symbols der aufgedeckten Karte. 


Zeile 900 - 970 
Aufdecken der vom Spieler angegebenen 1. Karte. 


Zeile 980 - 1120 
Eingabe des Spielers und Aufdecken der 2. Karte. 


zum Aufdecken der Karten erhalt das 3%*3 Quadrat 
eine andere Farbe (gelb, Zeilen 930 und 1080), und das 
zu der jeweiligen Karte gehörende Symbol wird invers in 
der Mitte dargestellt (Zeile 960 bzw. 1110). 


Zeile 1150 
Die Zahl der Spielrunden wird angezeigt. 


Zeile 1160 
Die Symbole der angegebenen Karten werden ver- 
glichen. 


Zeile 1170 - 1200 


Wurde kein passendes Paar gefunden, wird die Va- 
riable TZ gleich Null gesetzt, der Versuch als Niete 
bezeichnet, und der nachste Spieler ist an der Reihe 


(Zeile 1200). 


Zeile 1210 - 1310 
Ein Treffer wird angezeigt und der Punktestand des 


Spielers notiert. Außerdem wird vermerkt, wieviele 
Kartenpaare insgesamt gefunden wurden (Zeile 1310: T% 
= T% + 1). 


Zeile 1320 - 1350 

Der aktuelle Punktestand des Spielers wird ausge- 
geben, und derselbe Spieler ist noch einmal an der 
Reihe. 
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Zeile 1370 
Nach dem letzten Spieler beginnt die nächste Runde 
wieder mit dem ersten. 


Zeile 1390 - 1410 
Sind alle Kartenpaare gefunden, wird die Anzahl 
der dafür benötigten Versuche angezeigt. 


Zeile 1430 - 1550 

Die Spieler werden nach den von ihnen erreichten 
Punkten sortiert, so daß der Spieler mit der höchsten 
Punktzahl an erster Stelle steht. 


Zeile 1560 - 1720 

Der Gewinner und die von ihm erreichte Punktzahl 
wird ausgegeben. Anschließend folgen die übrigen Teil- 
nehmer in der Reihenfolge ihrer Punktzahlen. 
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FlußRdiagramm: Memory 


Spielregeln 


Eıngabe wieviele 
Spieler (N) 


Auslegen der ver. 
deckten Karten 


Einlesen der Kartenwerk 
aus Data- Zeilen und 2u- 
fallige Verteilung 


FOR SP=1 TON 


Eingabe des Spielers 
sp Fr 1. Karte 


nein 


B 
Entfernen des TFaares 
aus dem Spiel 


Umrechnen der ei ebe- 
nen Koordinaten auf 
Bıldschirmspeicherp latze 


Umdrehen der zu- 
letzt gezeigten Karte 


Aufdecken der 1. 
Karte, Notierung 
des Wertes 


Eingabe des Spiele 
für 2.Karte 


Koordinaten um - 
rechn ung 


Aufdecken der 2. 
Karte , Notierung 
des Wertes 


beide 
Kartenwerte 
gleich 


ya "TREFFER" 


nein 


Erhöhung des Er- 
gebnisses von Spie 


ler SP um 1 


NEXT SP 
(nächster Spieler) der Ge - 


der gefun 


& denen Paare um 1 


alle Faare 
gefunden 
14 


ya 
Sortieren der Spie- 


ler nach den er - 
reichten Punkten 


Ausgabe des Sregers 
und der Ergebnisse 
aller veler 


18 REM. =:uu42 L Zu mu ze zu zu; nz a m 2 5 = 2 9 m m BB BB BB RR BB BB m u =us au u = 


28 PRINT"WM 3 MEMORY " 
38 PRINT"® BEI DIESEM SPIEL SEHEN SIE 38 VER-" 

48 PRINT" DECKTE ’KARTEN’, VON DENEN JEWEILS 2" 
5% PRINT" DAS GLEICHE SYMBOL TRAGEN." 

68 PRINT"M) IHRE AUFGABE IST ES, DIESE PAARE" 

7® PRINT" HERAUSZUFINDEN. " 

88 FRINT"M BEI MEHREREN SPIELERN WIRD ABWECHSELND" 
98 PRINT" ANGEGEBEN, WELCHE KARTEN AUFGEDECKT" 

188 PRINT" WERDEN SOLLEN." 

110 PRINT"M HAT EIN SPIELER EIN ZUSAMMENGEHDEREN-" 
120 PRINT" DES PAAR GEFUNDEN, WERDEN DIESE KARTEN" 
130 PRINT" AUS DEM SPIEL ENTFERNT, UND DERSELBE" 
148 PRINT" SPIELER DARF NOCH EINMAL WAEHLEN. " 

150 PRINT"® GEWONNEN HAT DER SPIELER, DER DIE" 

168 PRINT" MEISTEN KARTENPAARE GEFUNDEN HAT." 

178 PRINT: PRINT 

186 INPUT " WIEVIELE SPIELER"3N 

196 DIM TAN) ,N$(N),A$(5,4),A(5,4) 

280 PRINT"TIN" 

218 FOR I=1 TON 

220 PRINT" NAME SPIELER"5I5: INPUT N$(I) 

230 NEXT I 


250 PRINT "7" 

268 FOR I=@ TO 4 

278 FOR J=@ TO 2 

286 FOR K=0 TO 5 

298 5=1106+J*40+4%1#40+K*4 
388 FOR Z=0 TO 2 

31@ POKE S+Z,224: POKE 5+27+54272,14 
320 NEXT Z 

338 NEXT K 

340 NEXT J 

358 NEXT I 
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u... MEMORY 


‚SPIELFELD 


360 REMe 22... De ee ae BENENNUNG DER ZEILEN/SPALTEN 
370 PRIN "4 1 2 304 5 6 

388 PRINT "Ane"; 

398 FOR 1=8 TO 4 

408 PRINT CHR$(65+1): PRINT: PRINT: PRINT 

410 NEXT I 

BDO REN ee „MISCHEN DER KARTEN 
438 FOR J=® 10 5 

448 FOR I=0 TO 4 

450 X=INT(RND(1)%*6): Y=INT{RND(1)*5) 

468 IF A$(X,Y)<>"" THEN GOTD 450 

470 READ D$: A$(X,Y)=D$ 

488 A(J, D=1147+J%*4+1*160 

496 NEXT I 

506 NEXT J 

518 DATA 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9, 9, A, A,B,B,C,C,D,D 

520 DATA E,E,F,F 

530 REM nnnnnennnn SERIEN ENIREHERR N ae anna «EINGABE 
540 V4=V4+1 

550 FÜR SP=1 TON 

569 PRINT"S" 

570 FOR K=1 TO 2@: PRINT CHR$(17)5: NEXT K 

580 PRINT" ". REM JE 21 LEERZEICHEN 

590 PRINT" a 

608 PRINT" u 

618 PRINT"3" 

628 FOR K=1 TO 26: PRINT CHR${17)5: NEXT K 

638 IF T%=15 THEN G0TO 670 

64& PRINT "EINGABE SPIELER"3SP 

650 IF TZ=® THEN 60TO 750 
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REM...... nenne ENTFERNEN EINES PAARES GLEICHER KARTEN 
A(J-1,1-1)=0: AtW-1,0-1)=0 

FOR E=-i TO i 

FOR F=-1 TO 1 

POKE LI+F+E#40+54272,6 

FOKE LZ+F+E*#49+54272,6 

NEXT F 


3 NEXT E 
a IF T4=15 THEN GOTO 1390 


INPUT"1. KARTE"5K1$ 

I=SASC(LEFT$(K1$,1))-64: J=VAL(CRIGHT$(K1$,1)) 

IF (LEN{KISIS>Z2 OR VAL(KISI<S>B) THEN PRINT"T]"5=: GOTO 750 
IF (I>5 OR J>6 OR J=8) THEN PRINT"TT"5: GOTD 750 

IF (AtJ-1,1I-1)=8) THEN PRINT"’T"5: GOTD 758 

IF ((V%=1 AND SF=1) OR TZ=1) THEN GOTD 898 

POKE L1,224: FOKE 12,224 
REM..2ussensnonnunsnnnnnnunnne. VORIGE KARTEN WIEDER UMDREHEN 
FOR E=-1 TO 1 

FOR F=-1 TO 1 

POKE LI+F+E%40+54272,14 

POKE L2+F+E#40+54272,14 

NEXT F 

NEXT E 

D=ASC(A$(J-1,1I-1)): IF D>64 THEN D=D-64 
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908 REIN... iii AUFDEEKEN 1. KARTE 


918 FOR E=-1 T0 1 
920 FOR F=-1 T0 1 

930 POKE AlJ-1,1-1)+F+E#40+54272,7 

948 NEXT F 

950 NEXT E 

968 POKE AtJ-1,1-1),D+128 

978 Li=A(J-1,1-1) 

980 INPUT"2. KARTE"5K2$ 

990 B=ASC (LEFT$SIK2$,1))-64: W=VAL(RISHTS (K2$,1)) 

10808 IF (LEN(K2$)<>2 OR VAL(K2$)<>®) THEN PRINT"""5: GOTD 989 
1818 IF (0>5 OR W>6) THEN PRINT"N"5: GOTO 980 

1820 IF (A(W-1,8-1)=0) THEN PRINT""5: GOTO 980 

1038 IF K2$=K1$ THEN PRINT""3: GOTO 980 

1048 B=ASC(A$(W-1,0-1)): IF B>64 THEN B=B-64 

105@ REM. neneeneunnnnnununnnennunnnnenunnn nn „AUFDECKEN 2. KARTE 
1868 FOR E=-1 TO 1 

10878 FOR F=-1 101 

10880 POKE AtW-1,8-1)+F+E*40+54272,7 

1090 NEXT F 

1100 NEXT E 

111® POKE AtW-1,8-1),B+128 

1128 L2=A(W-1,0-1) 

1130 PRINT"" 

1148 FOR K=1 TO 1@: PRINT CHR$(17)5: NEXT 

1150 PRINT TAB(26) 5 "RUNDE" 3 V% 

1166 IF B=D THEN GOTO 12202 REM.eonn2nnnnnnnanannn nennen nn PAAR? 
1170 TZ=0 

1188 PRINT"a" 

1198 FOR K=1 TO 28: PRINT CHR$(17)5: NEXT K 

1200 PRINT TAB(26)5"NIETE! ": GOTO 1369 


43 


REM... uounonsessunne nn |1nnnen0.n .nnnnnnn.n2 GLEICHE KARTEN 


FOR M=90 TO 9 

PRINT" =" 

FOR K=1 TO 28: PRINT CHR${175: NEXT K 

PRINT TAB{2ö); 

TR=8: IF {M/2-INT{M/2))=8 THEN TR=i 

IF TR=1 THEN PRINT"TREFFER!":FOR K=1 TOD 28:NEXT K:60T0 1308 
PRINT" ” 

NEXT M 

TA(SP)=TA (SP) +1: TX=T%X+H1 

PRINT" =" 

FOR K=1 TO 12: PRINT CHR$(17)35: NEXT K 

PRINT TAB (26) 5; "SPIELER”";3SP3 "N2" 

PRINT TAB{26); TZ{SP)s "I. TREFFER": GOT0566 

NEXT SP: REM...... nnuuusueneennnnunnnnnnn „ NAÄELCHSTER SPIELER 
GOTO 530: REM. „uuneusuusunannennununnnn nn «WIEDER 1. SPIELER 
REM.uSAES Re EINE iswseyeaun .SPIELENDE 
PRINT" ALLE KARTENPAARE WURDEN GEFUNDEN!" 

PRINT" EHRE" 

PRINT: PRINT" DAFUER WURDEN" 3 N&# (V%-1) 5 "VERSUCHE BENDETIGT." 


REM.uonoenunuonunnensnnn REIHENFOLGE DER SPIELER NACH PUNKTEN 
REM.2uunouuonuenun nun nun en una nn n en nun u nn u... . SORTIEREN 
FOR SP=1 TON 


GA (SP)=TA (SP) 
NEXT SP 
Z=0 
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1488 FOR J=1 TO N-1 

1498 IF GAtWJ) >=6% (J+1) THEN GOTO 1549 
1508 K=6%(J) 

1518 GA{J)=6% (J+1) 

15208 GAtJ+1)=K 


15350 Z=1 

1548 NEXT J 

15358 IF Z=1 THEN GOTD 1470 

1568 REM. „.unun.. een AUSGABE DER SIEGER 


1578 PRINT: PRINT: PRINT" GEWONNEN HAT "5; 
158@ OR SP=1 TON 

1598 IF TZ(SP)=G%At1) THEN PRINT N$(5P)5 
160680 NEXT SP 

1618 PRINT" MIT"56%{1)5 "PUNKTEN. " 

1626 PRINT 

1638 IF N=1 THEN GOTO 1748 

1648 IF N=2 THEN PRINT" DANACH FOLGT:": G0TO 1668 
1858 PRINT” DANACH FOLGEN: " 

1668 PRINT 

1678 FOR J=2 TON 

16888 FOR SP=1 TON 

1698 IF TA{SFP)=6%XtJ) THEN PRINT " "3N$(5P)5 
1700 NEXT SP 

1716 PRINT" MIT"56X (J) 5 "PUNKTEN" 

1728 NEXT J 

1756 PRINT: PRINT: PRINT 

1748 INPUT" NOCH EIN SPIEL (J/NI "3 JIN$ 
1750 IF JN$="N" THEN END 

1768 CLR: GOTO 170 

1770 END 


READY. 
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MEMORY 


r-J 
il 
a» 
{n 
D- 


= 


ER 


SE 
SR RUNDE 1 
au ggg SF ELER 33 


SS TREFFER ! 


BEISR 


EINGAB 
KARTE 17 


1 
A ii 


B% 


8, 


RUNDE 1 
SFIELER 3: 
4. TREFFER 


Dich 


u 


E s : 5 


NIETE ! 


m NEE 
EINGABE SFIELER } 


KARTE 17 
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Zahlenkarten-Raten 


Der Trick bei diesem Spiel basiert auf dem Dual- 
system: Es werden jeweils 16 der Zahlen von 1 bis 31 
auf jede der 5 "Karten" verteilt. Dabei spielt die 
Reihenfolge dieser 16 Zahlen innerhalb einer Karte 
keine Rolle, wichtig ist nur, daß jede Zahl nur auf 
ganz bestimmten Karten erscheint. Dies geschieht nach 
dem folgenden System: Da der Dezimalzahl 31 die Dual- 
zahl 11111 entspricht, erscheint die Zahl 31 auf allen 
5 Karten, die Zahl 16 (= 10000) nur auf der ersten, die 
Zahl 2 (= 00010) nur auf der vierten usw. Allgemein 
gesagt, bedeutet eine "1" in einem Dualzahl, daß auf 
der dieser Position entsprechenden Karte die jeweilige 
Dezimalzahl vermerkt ist. Dieses Codierungssystem er- 
möglicht es uns also, die von einem Spieler ausgewählte 
Zahl in jedem Fall zu "erraten", wenn der Spieler uns 
mitteilt, auf welchen Karten sie zu finden ist. 


Übrigens: wenn Sie sich mit dem Dual- bzw. Binär- 
system auskennen, werden Sie gleich den Zusammenhang 
zwischen der Anzahl der Karten und den 31 Zahlen er- 
kannt haben: Die größte der Zahlen, in unseren Fall 31, 
hat, als Dualzahl codiert, genau 5 Stellen (31 = 215 - 
1). Demnach können Sie z.B. bei 6 Karten die Zahlen 
von 1 bis 63 verwenden (2T6 -1I = 63), wobei auf jeder 
Karte dann 32 verschiedene Zahlen stehen müssen, da die 
64 Dualzahlen von O bis 11111 - einschließlich der füh- 
rende Nullen - jeweils zur Halfte aus den Ziffern O0 und 
1 bestehen. 
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Programmbeschreibung 


Zeile 10 - 120 
Kurze Programmerläuterung. 


Zeile 130 
Dimensionierung des Kartenfeldes für 5 Karten mit 
jeweils 16 Zahlen. 


Zeile 140 - 290 

Hier werden die Dezimalzahlen von 1 bis 31 in die 
entsprechenden Dualzahlen von 00001 bis 11111 umge- 
wandelt. 


Zeile 300 - 380 

Jeweils 16 der Zahlen von I bis 31 werden in 
zufälliger Anordnung auf jede der 5 Karten so verteilt, 
daß eine Zahl dann auf einer Karte erscheint, wenn die 
zugehörige Dualzahl an der der Kartennummer ent- 
sprechenden Position eine 1 aufweist. 


Zeile 390 - 500 
Hier erfolgt die Ausgabe der 5 Zahlenreihen (Kar- 
ten) mit 16 Zahlen. 


Zeile 510 - 680 

Der Reihe nach wird abgefragt, auf welchen der 5 
Karten sich die vom Spieler "gedachte" Zahl befindet, die 
anschließend sofort ausgegeben wird. Danach kann man die 
Karten neu mischen lassen oder das Spiel beenden. 


Zeile 690 - 750 


Hier werden die Karten für ein neues Spiel ge- 
löscht. | 


49 


FluRdiagramm: Zahlenkarten Raten 


Umrechnung der Dezimal 
zahlen von 1 bis 31 ıns 
Dvalsystem (1 bis 14144) 


Verteile jeweils A6 der Zahlen von 
1 bis 39 ın zufälliger Anordnung 
soauf 5 Karten, daß die Zahl 31 
auf allen 5 Karten erscheint 
(IIjen = 11111 ar) die Zahl 16 
nur auf der A.Karte (16... = 
10006 au); die Zahl 2 nur auf der 
4. Karte (2, ” 00010 ua ) 


USW. 


. . 


Ausgabe der jeweils 


16 Werte der 5 Karten 


setze Kartenzähler 
K= 4 


setze gesuchte Zahl 
X=0® 


findet sich 
die vom Spieler gedach: 
e' Zahl (von A bis 31) 
auf diesen Kart 


Ausgabe rer: 


die gedachte Ze 
Karten 
Löschen 


nen ZAHLENKARTEN-RATEN 


28 PRINT CHR$(147): REM BILDSCHIRM LOESCHEN 
58 PRINT TAB(18)"3 ZAHLENKARTEN-RATEN ":PRINT 


48 PRINT:PRINT" 
38 PRINT: FRINT" 
68 FRINT:FRINT" 
78 FRINT:FRINT" 
86 FRINT:PRINT" 
9a PRINT:FRINT" 


186 PRINT:FRINT" 


ICH WERDE GLEICH 5 ZAHLENREIHEN VOR-" 

LEGEN. SIE MERKEN SICH DANN BITTE EINE" 
ZAHL UND SAGEN MIR, IN WELCHEN REIHEN" 

DIESE ZAHL VORKOMMT. ICH WERDE DANN" 

SOFORT SAGEN, UM WELCHE ZAHL ES SICH" 

HANDELT - UND ZWAR OHNE ALLE REIHEN" 
DURCHZUSEHEN! " 


118 PRINT"=E EINEN MOMENT GEDULD BITTE! ICH MISCHE" 


12% PRINT:PRINT" 
138 DIM K(5,16), 
148 REM anna. 


156 FOR N=1 TO 31 


16% D=N 
170 R$="" 
188 Q=INT(D/2) 


GERADE DIE KARTEN .„.." 
B$(31) 
een BINAERSTRINGS ERZEUGEN 


1980 DO$ = STR$((D/2-0)*2) 

268 F=8: IF LEFT$(DQ$,1)2> "1" OR LEFT$(DO$,1) <> "0" THEN F=1 
21@ IF F=1 THEN DO$=RIGHT$ (DQ$,LEN(DO$) -1) 

220 R$ = R$ + DO$ 


2350 D=0Q 


248 IF Q>® THEN GOTO 189 
256 FOR I=LEN{R$) TO 1 STEP -1 
266 B$(N)=EB$ (N) +MID${R$, 1,1) 


276 NEXT I] 


288 IF LEN{B${ND) < 5 THEN B$({N) = "0"+B$(N): GOTOD 289 


2978 NEXT N 
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A 
a Sr 
9 © 5% 


Der) 


EL u #7 Bu #2 Be Be 


Led 
[ed u 
I) 


> 


REM Aa ern ZAHLENKARTEN FUELLEN 


FORK=1 105 

IF MID$(BS(N),K,1) <> "1" THEN 370 
Z = INT{RND(1) * 16) +1 

IF KIK,Z) <> ® THEN GOTD 348 
KiK,DI= N 

NEXT K 


POKE 214, 24-1 
PRINT: PRINT"<START: BELIEBIGE TASTE DRUECKEN> 
GET F$: IF F$="" THEN 428 

PRINT" 5 

FORK = 1 TO 5: PRINT" a" Kk3 TAB(K*B)i: NEXT K 
PRINT: PRINT 

FORI = 1 TO 16 


> FORK = 1 TO 5 


FRINT K{K,D5 TAB(K#B);5 


{=% 

PRINT:PRINT" GEBEN SIE NUN AN, AUF WELCHEN KARTEN" 
PRINT" SICH IHRE ZAHL BEFINDET: " 

FORK = 1 7035 

FOKE 214,22-1: FRINT: REM CURSOR-ZEILE 

PRINT" AUF KARTE "sKs: INPUT"H ? (J/N: um"; A% 
IF A$ = "J" THEN X = X+211(4-(K-1)) 

NEXT K 


32 


EINGABE 


628 


IF X > 8 THEN GOTO 64% 


618 POKE 214,23-1: PRINT :REM CURSOR-ZEILE 

628 PRINT" *** ZAHL EXISTIERT NICHT!" 

&39 FOR PAUSE = 1 TO 1800: NEXT PAUSE: 60TO 559 

648 POKE 214,23-1: PRINT"M--> DIE GESUCHTE ZAHL HEISST: 
658 PRINT"<WEITER: J/N> "3 

668 BET F$: IF F$ = "" THEN 666 

676 IF F$ <> "J" THEN END 

68@ PRINT" ... ETWAS GEDULD, BITTE!"; 

BIO REM ee ee ne u... KARTEN? 
768 FORK = 1 7T05 

718 FOR I = 1 T0 16 

28 K(K,D = @ 

730 NEXT I 

748 NEXT K 

759 GOTD 306 

READY. 
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EX 


LOESCHEN 


Labyrinth 


Labyrinthe waren schon in der Antike bekannt und 
sind bis in unser Jahrhundert beliebte Muster für Deko- 
rationen und Gärten. Eines der berühmtesten Labyrinthe 
ist am Hampton Court Palast in England 1690 konstruiert 
worden. Jährlich verlaufen sich in diesem Labyrinth 
unzählige Touristen. 


Irrgärten bzw. Labyrinthe können sehr verschieden 
konstruiert sein, der Irrgarten von Hampton Court zum 
Beispiel besitzt nur einen Eingang, der gleichzeitig 
auch der Ausgang ist, das zu erreichende Ziel liegt 
hier in der Mitte der Anlage. 


Für alle diejenigen, die sich schon einmal in 
einem Labyrinth verlaufen haben (und das ist ja der 
Sinn eines Labyrinths) noch ein Hinweis: Es gibt eine 
sichere Methode, aus jedem Irrgarten wieder herauszu- 
finden. Dabei wählt man einmal eine Richtung, also 
rechts oder links, und behält diese dann konsequent 
bei, biegt also bei jeder möglichen Gelegenheit in die 
einmal gewählte Richtung ab. Dieser Weg ist zwar nicht 
der kürzeste, führt aber auf jeden Fall entweder zu- 
rück zum Eingang oder zum Ausgang. Diese Methode funk- 
tioniert auch bei Labyrinthen, deren Ziel in der Mitte 
liegt (also z.B. in Hampton Court). Voraussetzung ist 
dann allerdings, daß es keinen Weg gibt, der um das 
Ziel herum wieder zum Ausgangspunkt führt. 


In unserem Programm wird ein Labyrinth erzeugt, 


das einen Eingang und einen Ausgang besitzt, die durch 
einen oder mehrere mögliche Wege verbunden sind, Ihr 
Weg wird dabei durch Kreise markiert. In alle Richtun- 


gen können Sie sich mit Hilfe der Cursortasten bewegen. 
Im Unterschied zu Gartenlabyrinthen, in denen man durch 
eine Hecke schlüpfen kann, ist es in diesem Programm 
nicht möglich, die Begrenzungen zu ignorieren. 
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Programmbeschreibung 


Zeile 20 - 110 
Einleitende Spielerklärung. 


Zeile 120 
Dimensionierung des Spielfeldes und der Richtung. 


Zeile 140 - 160 
Der Eingang in das Labyrinth wird bei jedem Spiel 
neu bestimmt. 


Zeile 180 - 210 

Entsprechend dem Wert für die aktuelle Richtung 
wird festgelegt, ob nach links, rechts, oben oder unten 
mit der Schrittweite DX oder DY, die einem Feld ent- 
spricht, weitergegangen werden muß. 


Zeile 220 - 300 
Die in einem Wegabschnitt durchlaufenen Felder 
werden nacheinander markiert. 


Zeile 310 - 410 

Die Richtung für den nächsten Wegabschnitt wird 
bestimmt. Dabei sollen Schleifen vermieden werden 
(Zeile 340), der Weg soll nicht unmittelbar an sich 
selbst vorbeilaufen (Zeile 360) und in den ersten und 
letzten drei Spalten darf er nur nach unten abknicken. 
(Zeilen 370 und 380). 


Zeile 420 - 520 

Die maximale Länge eines Wegabschnittes wird ab- 
hangig von der ausgewählten Richtung festgelegt und 
eine zufällige Länge für diesen Abschnit zwischen 1 und 


dem Maximum gewählt. Ist der Weg bereits in der 11. 
Zeile angelangt, können die Berechnungen beendet wer- 
den. 


Zeile 530 - 610 
Den nicht vom Weg durchlaufenen Felder werden 
Zufallswerte zugewiesen. 
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Zeile 620 - 930 

Die Zeichen, aus denen sich das Labyrinth zusanm- 
mensetzt, werden entsprechend den Werten der Feldva- 
riablen zunächst in der Hintergrundfarbe (Zeile 630) 
ausgegeben, bis das gesamte Labyrinth aufgebaut ist. 
Anschließend wird das Labyrinth durch einen Wechsel der 
Hintergrundfarbe sichtbar (Zeile 930). 


Zeile 940 - 1090 

Der erste Punkt zur Markierung des Weges wird an 
den Eingang gesetzt (Zeilen 950 und 960) und die Uhr 
auf Null gestellt. Entsprechend der Spielereingabe 
durch die Cursor-Tasten werden weitere Punkte gesetzt. 
Wird ein bereits durchlaufener Abschnitt noch einmal 
benutzt, werden die Markierungspunkte wieder gelöscht 
(Zeile 1080). Hat der Spieler seinen Weg bis zum Aus- 
gang gefunden, erfolgt ein Sprung zum Spielende-Ab- 
schnitt (Zeile 1060), sonst zurück zur Eingabe. 


Zeile 1100 - 1250 

Die Uhr wird angehalten und als Ergebnis die benö- 
tigte Zeit ausgegeben. Außerdem kann auf einen erneuten 
Spielanfang oder auf das Programmende verzweigt werden. 
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Flußdiagramm: Labyrinth 


Anfang 


Spielerklarung 


zufällige Bestım- 

mung des Eingangs 

und Ye Länge e 

des 1. Wegab - 
alal . 


Markierung der von 
diesem Wegabschni 
durchlaufehen Felder 


Bestimm ung von 
Richtung und Länge 
des nachsten Weg- 
abschnıttes 


Zeile erreicht 


'q 


ae des 
Ausgang 


zufallige Belegung 
der nıcht vom We 
durchlavufenen Felder 


Ausgabe des 
Labyrinthes 
Uhr auf ® stellen 


Spielereingabe 


Setzen des Punktes 
zur Wegmarkıerung 


Punkt 
am Ausgang 


ya 
Ausgabe der benö- 
tigtfen Zeit 


10 REN san aeisss TABßVRINTH 
28 PRINT" 4 LABYRINTH z 


30 
40 
30 
68 
70 
= 17) 
90 
198 
118 
120 
130 
148 
150 
168 
170 
189 
1970 
200 
210 
220 
250 
248 
258 
268 
270 
280 
270 
300 


PRINT"M BEI DIESEM SPIEL WIRD EIN IRRGARTEN" 
PRINT" BERECHNET, DURCH DEN SIE IHREN WEG" 
PRINT" FINDEN SOLLEN.” 

PRINT"M] NACH EINER KURZEN BERECHNUNGSPAUSE"” 
PRINT" WIRD AUF DAS LABYRINTH UMGESCHALTET." 
PRINT" MIT HILFE DER CURSOR-TASTEN KOENNEN" 
PRINT" SIE DANN VERSUCHEN, DEN AUSGANG ZU" 


PRINT" FINDEN." 
PRINT" MH EINEN AUGENBLICK BITTE ..." 
DIM A(20,20),R{15®) 
REN. susanne era EINGANG 
EIN=INT {RND(1) #12) +4 
K=1: Z=1: RiK)=2: S=EIN: A(S,Z)=2 
=INT(RND (1) #4) +1 
REN aaa reis PRÜEFE. RICHTUNG 
IF Rik)=-1 THEN DX=-1: DY=0: 60T0 228 
IF R{K)=1 THEN DX=1: DY=8: GOTO 220 
IF R(ikK)=2 THEN DY=1: DX=8: 6G0T0 229 
IF R(K)=-2 THEN DY=-1: DX=8: GOTO 220 
REN. aan ins MARK TERUNG 
IF L=1 THEN S=S+DX: Z=Z+DY: GOTD 298 
FOR I=1 TO L-1 
5=5+DX: Z=ZI+DY 
IF DX<>8 THEN A(S,Z)=1 
IF DY<>@ THEN A(S,2)=2 
NEXT I 
A(S,Z)=3: GL=6L+2%L-1 
IF z=11 AND DX<>0 THEN AUS=S: GOTO 530 
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REN. 2. aa 4 .»>»„n— us a3 5 2a 2 2 = 


=K+1 
IF K<4 THEN GOTO 350 


IF ABS(R(K-F))=ABS(R(K-1)) THEN R(K)=R(K-2)2 GOTO 420 


IF K{3 THEN GOTO 370 
IF L=1 THEN R{K)=R{K-2) 


IF R{K-1)=1 AND 5>=15 THEN R(K)=2: 
IF R{K-1)=-1 AND 5{=3 THEN R{K)=2: 
R{K)=INT(RND{1I*5I-1: IF RtK)=® THEN GOTO 390 
IF ABS{R({K-1))=2 THEN GOTO 420 

IF ABS{R(K-1))=1 THEN R({K)=2#R{K) 


IF R({K)=1 THEN LM=19-5 
IF RIKd=-1 THEN LM=S-1 
IF R{iKd=2 THEN LM=11-7 
IF R{K)d=-2 THEN LM=Z-1 


.noenunnnnennnnn. . NAECHSTE RICHTUNG 


IF LM=1 THEN R(K)=2: LM=11-Z 


IF LM>5 THEN LM=5 
0%=1: IF Z=11l THEN 09%4=@ 


IF Z>=11 THEN AUS=S :60TO 5350 


L=INT (RND (1) #LM) +0% 
G0TD 178 


FOR Z=1 TO 11 
FOR 5=1 TD 18 


IF A(S5,Z)<>0 THEN 60T0 580 


A(S, ZI=INT{RND(1)*2) +1 


IF {AtS,Z)=1 AND Z=1) THEN A(S,2)=® 
IF (5=18 AND A(S,Z)<>1) THEN A(S5,Z)=0 


NEXT S 
NEXT Z 
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sneenum „NICHT-WEG 


620 
650 
648 
630 
668 
670 
680 
678 
798 
718 
7208 
730 
748 
750 
768 
770 
780 
790 
800 
810 
820 
8350 
940 
850 
8608 
870 
880 
898 
9009 
910 
920 
939 


REM. am m un 5 5 9 5 80 5 5 OB m 5 5 5 5 = 9 5 5 0 5 SB a2 2 8 = 8 an 95: 5 90 na as u = © au 2 as ms a = u =. SETZEN 
PRINT""5CHR$ (31) 5 
PRINT" #"; 


FOR S=i TO 18 
IF &>EIN THEN PRINT"me="5: GOTD 680 


PRINT" «"5 
NEXT S 
PRINT" " 

FOR Z=1 TO 11 


PRINT" m"; 

FOR S=1 TD 18 

A=A (5,2) 

IF A=1 THEN PRINT" Sewil"}: GOTO 770 

IF A=2 OR A=3 THEN PRINT" "3: GOTO 770 
PRINT" "3 

NEXT S 

PRINT" ": PRINT'ME"; 

FOR 5=1 TO 18 

A=A (5,2) 

IF As1 OR A=3 THEN PRINT" "3: GOTO 846 
IF A=2 THEN PRINT" ®";: GOTO 840 
PRINT" "3 

NEXT S 

PRINT" " 

NEXT Z 

PRINT" "; 

FOR 5=1 TO 18 

IF >AUS THEN PRINT" mil": GOTO 919 
PRINT" ""3 

NEXT S 

PRINT" ® 

POKE 53281,14 
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940 REM. .„uossonuununcne nemunneusnunnuuunnee „2... SPIELEREINGABE 
950 BS=1824+2#EIN-1: FS=55296+2#EIN-1 

9686 POKE BS,81: POKE FS,7 

970 T1$="000000" 

988 CU$=CHR$ (17): CO$=CHR$ (145): CR$=CHR$(29): CL$=CHR$ (157) 
990 GET Z$: IF Z$="" THEN GOTD 990 

1088 IF Z$<>CU$ ANDZ${>CO$ AND Z$<X>CR$ ANDZ$<>CL$ THEN GOTO 999 
1018 IF Z$=CU$ THEN DI=48: GOTO 1059 

18280 IF Z$=C0$ THEN DI=-40: GOTO 1059 

1050 IF Z$=CR$ THEN DI=1: GOTO 1050 

1648 IF Z$=CL$ THEN DI=-1: GOTO 1959 

1050 BS=BS+DI: FS=FS+DI 

1068 IF BS>1984 THEN GOTO 1108 

1878 IF PEEK(BS?=32 THEN POKE BS,81:POKE FS,7: SL=SL+1: GOTO 990 
1888 IF PEEK(BS)=B1 THEN POKE BS-DI,32: IL=IL+1: GOTO 998 
1098 BS=BS-DI: FS=F5-DI: 60TD 9798 

1168 ZT$=T1$ 

1118 FOR I=1 TO 306: NEXT I 

1120 POKE 53281,6 

1158 PRINT"/I’5CHR$ (154) 

1148 PRINT"M SIE HABEN DEN AUSGANG IN" 

1150 PRINT" "5MID$(ZT$,2,2)35" MIN ";RIGHT$(ZT$,2)5" SEK" 
1168 PRINT" GEFUNDEN. “ 

1178 PRINT"M DABEI SIND SIE"; IL5 "SCHRITT(E)" 

1188 PRINT" IN DIE IRRE GEGANGEN." 

1198 PRINT" Ialsiel" ; 

1268 PRINT" NOCH EIN SPIEL (J/N) um"; 

1218 INPUT JN$ 

1228 IF JN$<S>"J" AND JN$S>"N” THEN PRINT"’T"5= GOTD 1200 
1230 IF JN$="J" THEN CLR= GOTO 116 

1248 PRINT"!T"; 

1250 END 


READY. 
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Melodien-Raten 


Die musikalischen Fähigkeiten des Commodore 64 
werden in dem nächsten Programm für ein Ratespiel ein- 


gesetzt. In diesem Spiel werden einige Takte von wohl 
allgemein bekannten Musikstücken angespielt, die Sie 
erkennen sollen. Dazu wurden die verschiedenartigsten 


Melodien aus unterschiedlichen Musikrichtungen ausge- 
wahlt. 


Im Programm werden zunächst die Daten und Bezeich- 
nungen der Musikstücke eingelesen. Sämtliche Daten 
werden anschließend in die zur Musikerzeugung notwendi- 
gen Werte umgerechnet. Dadurch lassen sich die einzel- 
nen Melodien nacheinander ohne Pause abrufen. Nach 
Abschluß der Berechnungen wird jeweils eine Melodie 
angespielt und eine Liste mit verschiedenen Titeln 
gezeigt, darunter auch der Titel der gespielten Melo- 
die. Zum Erraten haben Sie dann 20 Sekunden Zeit. Nach 
einer falschen Antwort können Sie sich die Melodie noch 
einmal anhören. 


wir hoffen, daß Ihnen die Auswahl der Melodien 
gefällt. Sie läßt sich natürlich Ihrem ganz persön- 
lichen Musikgeschmack anpassen. (Die Eingabe von Musik- 
stücken kann man sich übrigens durch ein Noteneingabe- 
programm, wie z.B. in unserem Buch "BASIC AUF DEM 
COMMODORE 64" beschrieben, wesentlich erleichtern.) 
Beim Eintippen dieses Programmes sollten Sie besonders 
auf die korrekte Eingabe der Daten achten, da sich 
sonst sehr leicht 'Mißtöne' einschleichen können. 


Das Ratespiel kann natürlich auch auf andere Weise 


erweitert werden. So können z.B. die Komponisten oder 
bei volkstümlichen Weisen das Erscheinungsjahr oder 
ahnliches abgefragt werden. Eine Liste mit kurzen An- 


gaben zu den von uns in diesem Programm vorgesehenen 
Stücken finden Sie im Anhang. 


62 


Programmbeschreibung 


Zeile 20 - 50 
Dimensionierung und Erläuterung wichtiger Variab- 
len. 


Zeile 70 - 230 
Spielanleitung und Abfrage der Anzahl der Melo- 
dien, die gespielt werden sollen. 


Zeile 250 - 270 
Die zwölf Grundfrequenzen für die erste Oktave 
werden eingelesen. 


Zeile 290 - 360 

Die Titel der Melodien (A$), sowie die Anzahl (B%) 
der Notenwerte und die dazugehörigen Daten (A%) aller 
Melodien werden eingelesen. 


Zeile 380 - 500 

Die eingelesenen Melodiedaten müssen zum Spielen 
umgerechnet werden. Die nachstehende Liste erklärt alle 
notwendigen Variablen. 


ND: Notendaten 

NW%: Notenwert (1/8, 1/16 etc.) 

0%: Oktave der zu spielenden Note (1 bis 8) 
NT: Notenname (C, D usw.) 

HF%: High-Byte der Note 

NF%: Low-Byte der Note 


Zeile 520 - 590 

Die Reihenfolge der Melodien wird durch Zufalls- 
zahlen festgelegt, wobei sichergestellt wird, daß keine 
Wiederholungen vorkommen (Zeilen 550 bis 580). 


Zeile 610 - 760 

Aus den eingelesenen Namen der Melodien werden 
fünf ausgewählt. Die Zeilen 700 bis 760 sorgen dafür, 
daß der Titel der gespielten Melodie in der Auswahl 
vorkommt. 


Zeile 780 - 880 
Ausgabe der fünf Titel. 
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Zeile 890 - 1050 

Zum Spielen der Melodien werden die entsprechenden 
Noten-Daten in die Speicherplätze des Musikchips ge- 
poket. Als Wellenform für alle Melodien wurde die 
Dreiecksform gewahlt. Während des Spielens der Melodie 
kann bereits die Eingabe des Spielers erfolgen (Zeilen 
980 und 990). 


Zeile 1070 - 1170 

Wurde die Melodie vollständig gespielt, ohne eine 
Spielereingabe, stehen noch 20 Sekunden zum Raten zur 
Verfügung. Der angegebene Titel wird invers hervorgeho- 
ben. 


Zeile 1180 - 1230 
Hier wird überprüft, ob der vom Spieler gewählte 
Titel richtig ist. 


Zeile 1240 - 1300 
Mit Leerzeichen wird die Bildschirmausgabe ge- 
löscht. 


Zeile 1310 - 1450 

Wurde nicht der richtige Titel erraten, oder ist 
die Zeit abgelaufen, kann dieselbe Melodie noch einmal 
gehört werden. War die Spielereingabe richtig, folgt 
das nächste Stück. 


Zeile 1460 - 1620 

Als Ergebnis wird die Anzahl der richtig erkannten 
Melodien und die benötigte Zeit mitgeteilt. Außerdem 
werden sämtliche gespielten Titel aufgezählt. An - 
schließend kann ein neues Spiel begonnen oder das Pro- 
gramm beendet werden. 


Zeile 1640 
Die erste DATA-Zeile enthält die Grundfrequenzen 
der ersten Oktave. 


Zeile 1650 - 2610 

Zu Jeder Melodie werden drei Angaben benötigt: Der 
Name, die Anzahl der Melodie-Daten und zuletzt die 
eigentlichen Noten-Daten. 
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Flußdiagramm:Melodienraten 


Spielerklarung 


Abfrage, wieviele 
Melodien gespielt 
werclen sollen (AN) 


Einlesen samttLi 


Daten aus den 
Data - Zeilen 


Umrechnung aller 
Daten ın die zur Musik 


erzeugung erforder- 
Lichen Werte 


for I=1T0 AN 


Erzeugung einer 
Zufallszahl zwischen 
A und 29 (X) 


an 
X(T) =X 


nachstes I 


G 


FOR I=1 TO AN 


8/ldschirmausgabe, 
von 5 Titeln 


Spielen der 
Melodie 


Eingabe, welcher 
der Tıtel erkann 
wurde 


Eın gabe 
richtig 


L Zeit 
Ausgabe des 
Ergebnisses und 


samtlicher ge = 
spielten Titel 


10 REM. „„uooeununnnunnuunnuunnnnu nn nun «ERKENNEN SIE DIE MELODIE 
20 DIM X (590) ,A%t1000) „BA. (50) 

30 DIM A$(5@) ,G6F%(11) ,HF% (10008) „NF% (1000) ,NWX. (1808) 

48 N=3S@0:REM. ..o.0ocuuunsunnnnennnennunn nenn nn nn ANZAHL MELODIEN 
58 REM A%=DATEN, BZ=ANZAHL DATEN/STUECK , A$=NAME „ N=SANZAHL STUECKE 

60 REM. „„n.eunounn0. .unuscuuunn nununennuun ......SPIELERKLAERUNG 
70 PRINT"M 3 MELDDIENRATEN u 

80 PRINT: PRINT" BEI DIESEM SPIEL SOLLEN SIE EINE" 

98 PRINT” SELBSTGEWAEHLTE ANZAHL VON MELODIEN" 

188 PRINT" ERRATEN.” 

118 PRINT"M AUF TASTENDRUCK HDEREN SIE JEWEILS” 

128 PRINT" EINEN TEIL EINER BEKANNTEN MELODIE.” 

138 PRINT"M AUS EINER AUSWAHL VON TITELN GEBEN" 

148 PRINT” SIE DANN DENJENIGEN AN, DEN SIE ER-" 

158 PRINT” KANNT ZU HABEN GLAUBEN." 

168 PRINT"M HABEN SIE SICH GEIRRT, KOENNEN SIE" 

178 PRINT" SICH DIE MELODIE EIN ZWEITESMAL AN-" 

188 PRINT” HOEREN. " 

198 PRINT" Ma WIEVIELE MELODIEN WOLLEN SIE RATEN" 

208 PRINT" (MAXIMAL"SNS"ID"5= INPUT AN 

218 IF AN<1 OR AN>N THEN PRINT"7]"5:= GOTD 288 

228 PRINT"IIM BITTE HABEN SIE ETWAS GEDULD, * 

230 PRINT” ERST MUSS GERECHNET WERDEN." 

248 REM. „ooosuunsennnunnnun nenne “-u.....EINLESEN GRUNDFREQUENZEN 
2580 FOR I=0 TOD 11 

268 READ GFA(I) 

270 NEXT I 

280 REM. onoosensnunnanenuune „„EINLESEN NAMEN, ANZAHL , MELODIEDATEN 
290 FOR I=1 TON 

308 PRINT"."5 

318 READ A$(I),BA(D 

3280 FOR J=1 TOD BAT) 

330 READ AA (S%+J) 

340 NEXT J 

350 54=5%4+BA(D) 

368 NEXT I 
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REM. „ou unenuununnnnnennnnnenunnu nn nn « BERECHNUNG NOTENWERTE 
5%=-0: K=8 

FOR I=1 TON 

FOR J=1 TO BX(D 

IF S#1INT (J/SI=J THEN PRINT"."5 

ND=AA (5%+J) 

IF ND{® THEN ND=-ND 

NWI=ND/128: 0%={ND-128*NWX) /16: NT=ND-128+NWX-16*0% 
FR=6FAÄ{NT)= FR=SFR*210%: HFA=FR/256: NFA=FR-256%HF% 
HFA(SA+HJ)=HF%: NFASAHJ)I=NFA: NWA(SK+J) =NWZ 

IF A$="SCHLUSSCHOR AUS CARMEN" THEN NW% (S%+J) =NWA (SX+J) /16 
NEXT J 

54=5%+BA (D) 

NEXT I 

REN. zus .....ZUFAELLIGE AUSWAHL EINES STUECKES 
FOR AA=1 TO AN 

PRINT"."5 

XtAM=INTIRND{1)#N) +1: IF AA=1 THEN GOTO 596 

UE=®: FOR AB=1 TOD AA-1 

IF XtAA)=XtAB)I THEN UE=1 

NEXT AB 

IF UE=1 THEN GOTD 548 

NEXT AA 

REM. onnununonununenennnn nn nn nn nn ZUFÄAELLIGE AUSWAHL DER TITEL 
FOR AA=1 TO AN 

WH=® 

FOR I=1 TO 5 

Y{D=INT(RND(1)*N) +1: UE=® 

FOR J=8 TO I-1: IF Y{DD=Y{J) THEN UE=1 

NEXT J 

IF UE=1 THEN GOTO 648 

NEXT I 

FOR I=1 TO 5: B$tII=A$(Y(DD): NEXT I 

KO=& 

FOR ZZ=1 T0 5 
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728 IF B${ZZI=A$SCXCAA)) THEN KO=1 

738 NEXT ZZ 

7838 IF Kü=1 THEN GOTO 776 

758 IN=INT{RND(1)#4) +1 

768 BS{IND=SA$SCKLAAI: YIINDD=SXtAA) 

7TO REM. „oununnnuu nun nn un nun nn nun nennen as u en nen en nnun = .„RATEN 
788 PRINT "mM 3 ERKENNEN SIE DIE MELODIE ? m" 
798 PRINT Ads". MELODIE"; 

808 PRINT "3"; 

818 FOR I=1 TO 206: PRINT CHR$(17)5: NEXT I 

826 PRINT " (ZUM HOEREN -> TASTE DRUECKEN)" 

838 PRINT "FIkinel"; 

848 FOR I=1 TO 5 

856 PRINT: PRINT " 351; "N = ";B$(ID) 

868 NEXT I 

870 GET Z$: IF Z$="" THEN GOTO 878 

880 PkK=0 

890 REM. „.oonunnunununnannnnnnnuunn en nun uses usnnsnennn en. «OPIELEN 
908 54=08: IF X{AA)=1 THEN GOTO 920 

918 FOR I=1 TO XtAA)-1: 5%A=S%X+BA (I): NEXT I 

920 SI=-54272 

938 FOR L=SI TO 51+24: POKE L,6: NEXT L 

948 POKE SI+5,9: POKE 5I+6,9: POKE 51+24,15 

950 TI$="000009" 

768 FOR J=1i TO BACXtAR)) 

970 K=5%+J 

988 GET W$ 

77a WA=VAL (WE): IF (WA>=1 AND WX<S6) THEN POKE 5I+24,0: GOTO 1139 
1888 POKE SI+1,HF%A(K): POKE SI,NFAIK): POKE SI+4,17 
1818 FOR T=1 TO 32#NWX {K)= NEXT T 

1820 POKE 5I+4,16 

1858 FOR T=1 TO 68: NEXT T 

1048 NEXT J 

1050 PDKE 51+24,0 


69 


106@ 
1070 
1080 
1890 
1108 
111® 
1120 
1130 
1140 
1150 
1168 
1170 
1180 
1178 
1200 
1210 
1220 
1230 
1240 
1250 
1268 
1270 
1280 
1290 
1308 
1318 
1320 
1350 
13540 
1350 
1568 
1370 
1388 
1390 


22, MEERE ENEE EEE REN EEE SR 2. „ AUSWERTUNG 
PRINT" IM WELCHES STUECK WURDE GESPIELT?" 
IT$=TI$ 

ZT=VAL (RIGHT$ (TI$, 2) )-VAL(RIGHT$(ZT$,2)) 

IF ZT>=28 THEN PK=2: 60TO 1130 

PRINT "Sinieie"s TAB(25)5 "ZEIT:"5ZT5"N SEK. 

GET W$: WA=VAL(WS): IF (W%<1 OR W%>6) THEN GOTO 1990 
ZE=ZE+TI: IF Pk=2 THEN GOTO 1248 

PRINT "ins"; 

FOR Z=1 TO W%X: PRINT: PRINT: NEXT Z 

PRINT " S"sWis"n "5BSCWWG" m a 

FOR Z=W%X TO 5: PRINT: PRINT: NEXT Z 

KT=0 

FOR I=1 T0 5 

IF Y(I) <> X(AA) THEN GOTO 1228 

KT=] 

NEXT I 

IF W4=KT THEN Pk=1 

PRINT"S"5 

FOR I=1 TO 20: PRINT CHR$(17)5: NEXT I 

PRINT" u 
PRINT"3"; 

FOR I=1 TO 16: PRINT CHR$(17)5: NEXT I 

PRINT" " 
PRINT "71"; 

IF PK=1 THEN GOTD 1349 

IF PK=2 THEN 6010 1350 

GOTO 1360 

PRINT "m 3 RICHTIG! MW"CHR$ (154): PZ=PZ+1: GOTD 1430 
PRINT " ZEIT ABGELAUFEN!": GOTO 137® 

PRINT "Si LEIDER FALSCH GETIPPT!": PRINT 

IF WH=1 'THEN 60TO 1430 

PRINT "Si MOECHTEN SIE DIE MELODIE" 

PRINT "ii NOCH EINMAL HOEREN? (J/N)” 
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GET H$: IF (H$<>"J" AND H$<>"N") THEN G0TO 1400 

PRINT CHR$(154):1IF H$="N"” THEN GOTD 1430 

WH=1: GOTO 770 

PRINT: PRINT: PRINT " (WEITER -> TASTENDRUCK)" 

GET JN$: IF JN$="" THEN GOTO 1440 

NEXT AA 

PRINT CHR$(129)5"TM VON II"5ANS "I MELODIEN HABEN SIE IN" 
MIN=INT (ZE/3608): SEK=INT(((ZE-MIN#3600) /60) #100+.5) /100 
PRINT MIN; "MIN"5 SEK; "SEK" 

PRINT PZ5; "RICHTIG ERKANNT. "5CHR$ (154) 

PRINT: PRINT" FOLGENDE MELODIEN WURDEN GESPIELT: " 

FOR I=1 TO AN 

PRINT 15"B. "5A$(X(D)) 

IF 15%*INT(1/15)=1 THEN INPUT"M WEITER -> ’RETURN?’”; IP$ 
NEXT I 

PRINT: PRINT 

INPUT" NOCH EIN SPIEL {J/N) "5 JN$ 

IF JN$<>"3" AND JN$<S>"N" THEN PRINT"77"5: GOTO 1560 

IF JN$="N" THEN GOTO 1820 

PRINT: PRINT " WIEVIELE MELODIEN MOECHTEN SIE HOEREN" 
PRINT * (MAX."5NS"ID "5:2 INPUT " "3AN 

PZ=0: ZE=®: GOTD 510 

END 


REM. 2eueoonunonnunenun neuen nennen mn nun nen nn ea ORUNDFREQUENZEN 


DATA 268, 284, 301,318,337,358,379, 401,425, 451,477,506 
DATA "YESTERDAY",31, 327,325, 1605, -512,329, 331,337, 338 
DATA 340, 341,468,210, 1618 

DATA -512,338, 338, 336, 330, 329, 327,586, 329, 841,583,581 
DATA 585, 839,578,581,329, 1609 

DATA "DIE GEDANKEN SIND FREI", 13,327, 327,592,592, 340,336 
DATA 1095, 583, 581,578, 583,580,576 

DATA "FUER ELISE",9,212,211,212,211,212,203, 210, 208,201 
DATA "BOURREE" ‚12,340, 342,599, 342, 340,595, 340, 342,587,337 
DATA 339,596 
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174% DATA "SAG MIR WO DIE BLUMEN SIND",27,327,329,839,325, 324,578 
1750 DATA 1600, 336,356, 850, 336, 331,585, 1687 

1768 DATA -512,327,329,839,325, 324,578, 1988, -768,581,581,324 
1778 DATA 2114 

1788 DATA "WHISKEY IN THE YAR",28,315,458, 194,322, 324,322,571 
1798 DATA 322,580,324,326,324,571,322,452, 196,324, 326, 327,327 
1848 DATA 326, 324,322, 322,327,326, 324,571 

1818 DATA "RADETZKY MARSCH",31,214,213,214,-128,214,213,214,-128 
1829 DATA 214,213,214,-128,212,-128, 210, -128, 214, 213,214,-128 
1830 DATA 214,213,214,-128, 214, 213,214, -128,219,-128,217 

1848 DATA"WIENER BLUT",34,838,327,2132,843,326, 2128, 843, 336 

1850 DATA 583,-512,331,336,583, -512,331,336,2117,840,329, 2133 
1868 DATA 849,338, 2130, 848, 329,336, -256, 843, 327,331 

1876 DATA -256,841,325,2116 

188@ DATA ""ARIE” AUS ZAR UND ZIMMERMANN" , 49, 1897,577,577,577 
1898 DATA 577, 1994,571,571,571,321, 322,580, 578,577, -512,1897,577 
1908 DATA 577,577,577,1894,571,571,571,321,322,58@, 5890, 313,329 
1918 DATA 328, 326,324, 338, 336,331,329,329, 328, 326,324, 338,336 
192% DATA 331,585, -512, 852,328, 585 

1938 DATA "ENTERTAINER" ,43, 201,202, 203,343, -128,203,471,343,599 
1940 DATA -384, 215, 217,218, 219, 215, 217,218, 219, 214,345, 343, -256 
1950 DATA 201,202, 203,343, -128, 203,599, 343,471 

176@ DATA -384, 215, 217,218, 219, 215, 217,218, 219, 214,345, 343 

197% DATA "TROTZ ALLEDEM" ‚32,578, 839, 329,583, 578,580, 583,585, 592 
1980 DATA 843, 329,583, 582, 836, 326,586, 578, 839, 329, 583,578, 580 
197@ DATA 583, 585,592, 843,329, 583,582, 839, 329,583 

20090 DATA "MENUETT", 32,592, 325, 327,329, 330, 592, 581,581,594, 330 
2010 DATA 336, 338, 340,597,581,581,586, 336, 330, 329, 327,585, 330 
2020 DATA 329,327,325,580, 325, 327,329, 325, 1607 

2030 DATA ""ARIE” AUS FREISCHUETZ",23,327, 208, 203,208, 210,340 
2040 DATA 327,208, 203,208, 210,346, -128, 212,466, 212,210 

2050 DATA 208, 263,201,199,197,836 

2060 DATA "HEIDEROESLEIN", 34, 582,582, 582,582,329,327,327,326 
2070 DATA 1092,580,580,582,583, 1097,594,-512,582,582,582,582 
2080 DATA 329,328, 328,326, 1692,585,585, 843,329, 328,329, 331,337 
2098 DATA 1097 
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2186 DATA "WIEGENLIED",29,327,327,842,327,583,586,-512, 327,330 
2118 DATA 595, 850, 336,592, 586,325, 327,584, 581,325, 327,584, -512 
212% DATA 325,328, 338, 336, 586,594, 595 

2130 DATA "INTERNATIONALE", 27,459, 201, 1895,834, 315, 1892, 576, 457 
2146 DATA 199, 1994, 836,322, 1896, -512,578, 843, 331,585, 578,1895 
215% DATA 8398, 326, 836,323, 580,585, 1097 

2166 DATA "ALLE VOEGEL SIND SCHON DA", 14,834, 326,585, 594,587 
2178 DATA 338,331,1897,839,329,592,578, 1892, 1890 

218% DATA "DER MOND IST AUFGESANGEN" , 2@, 581,583,581,586, 585 
2198 DATA 1095,581,585, 585, 585,594,592, 1098, 595,585, 585,585 
2206 DATA 586,585, 1995 

2218 DATA "KUCKUCK, KUCKUCK", 26,594, 1099, 594, 1099, 585, 583, 585 
2220 DATA 1607,585, 585,587, 1104,585,587,587,592, 1106, 587,1186 
2239 DATA 587, 1106, 587,585, 583,585, 1607 

2248 DATA "IM MAERZEN DER BAUER" ,22,576,581,581,585,583,583,586 
2256 DATA 589, 580,585, 1093, 576,581,581, 585, 583,583, 5B6, 589, 580 
2268 DATA 583, 1093 

227% DATA "DER WINTER IST VERGANGEN" , 26,578, 583,583, 585,594 
2288 DATA 1099, 587,592, 585,583,585,582, 1895, 578,583,583,585 
2290 DATA 594, 1899, 587,592, 585,583, 585,582, 1095 

2398 DATA "CLEMENTINE", 30,453, 197,581,576, 457, 201,585,581,325 
2310 DATA 329, 848,336, 336,329, 1995, 455, 201,586, 586, 457,199 
232@ DATA 585, 581,453, 201,583,576, 452,199, 1093 

2336 DATA "DER JAEGER AUS KURFFALZ", 26,320, 325,329, 329,329, 841 
2346 DATA 336,336, 350, 330,329,329,327,327,325, 324,327, 327,327 
235% DATA 583,592, 329,329, 327,327,581 

2368 DATA "NORODY KNOWS THE TROUBLE I’VE SEEN",31,331,578,324 
2378 DATA 839, 329,331,331,587,1099,331,578, 324,583, 583,588 
238@ DATA 1602,331,578,324,839,329,331,331,587, 1099, 850,331 
2396 DATA 585,587, 1095, 583 

240% DATA "EL CONDOR PASA",30,315,324,323, 324,326, 327,326 
2418 DATA 327,329,587,-1024,338, 338,587, -1024,340, 338, 1099 
2426 DATA -256,331,329, 327,201, 199,836, -512, 587,201, 199,836 


Eu 
La 
2 
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2430 
2440 
2450 
2460 
2470 
2480 
2490 
25890 
2518 
2920 
2338 
2540 
25950 
2560 
2570 
25890 
2570 
2608 
2610 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


READY. 


"SCARBORDUGH FAIR" ‚36, 1092,589, 331, 1999, 331,838, 327 
582, 2116, -1536,587,594, 1108, 594, 587,593, 585, 3147,-1536 
596,1198,596, 1106, 587,587,585, 583, 3142, 1892, 587, 1097 
583,582,580,578,3140 

"HAVAH NAGILA",38,580,836, 328, 325,324,584,840, 331,329 
328, 585, 841,336, 331,329, 584, 453, 197, 1092 

580,836, 328,325, 324,584,849, 331,329 

328,585, 841,336, 331,329, 584, 453, 197, 1092 

"BLOWIN’ IN THE WIND",38,583,199,455,585,329,329,583 
196, 450, 852, 327,839, 327,585, 199,453, 1095, -768, 324 
581,197,452,834, 322,196, 452,196, 450, 832, 324,581, 197 
452,322, 322,192, 443, 1088 

"SUR LE PONT D’AVIGNON",27,338,338,594, 340, 340,596 
342,343, 345,338, 337,338, 349,329, 338, 338,594, 340, 340 
596,342, 343,345, 338, 340, 337,594 

"SCHLUSSCHOR AUS CARMEN" ‚38,593, 467, 209, 586,586, 458 
200, 458, 203,842, -256, 587,456, 209,842, -256, 582, 451, 200 
833, -256, 1096, 328, 339,337, 331,330, 328, 330, 331,842 
-256,, 581,586, 586, 329, 208, 2133 
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Lernendes "Kopf oder Zahl“ 
Spiel (I) 


Bei diesem Spiel geht es darum, eine Vorhersage 
darüber zu treffen, welche Seite einer Münze der Gegen- 
spieler beim nächsten Zug aufdeckt. 


Das Programm ist so angelegt, daß sich der Com- 
puter in der Situation des ratenden Spielers befindet. 
An Stelle der Information "Kopf" oder "Zahl" geben Sie 


einfach die Zahlen "1" bzw. "0" in beliebiger Folge 
ein, und der Computer versucht dann, Ihren Spielzug zu 
"erraten" 


Die Wahrscheinlichkeit für eine richtige Vorher- 
sage betragt hier normalerweise 1/2 (oder 0.5 bzw. 
50%), "normalerweise" heißt: wenn die Zahlen 1 und O0 
gleich haufig in zufalliger Reihenfolge auftreten. Wenn 
Sie jedoch dieses Spiel gegen den Computer spielen, 
werden Sie feststellen, daß die Zahl der "Treffer" 
meist durchaus höher ist als 50%. Dies liegt darin 
begründet, daß es Ihnen kaum gelingen wird, eine tat- 
sachlich zufallige Folge der Zahlen 1 und 0 zu erzeu- 
gen. Auf Grund verschiedener Faktoren (z.B. der Rhyth- 
mus des Eintippens, ein - auch unbewußtes - Bevorzugen 
bestimmter Aufeinanderfolgen usw.) wird namlich die 
eingegebene Zahlenreihe mehr oder weniger stark von 
einer zufälligen Reihenfolge abweichen. 


Genau diese Abweichungen werden aber vom Programm 
teilweise erfaßt, indem der Computer sich merkt, welche 
Folgen zweier aufeinanderfolgender Zahlen wie oft vor- 
kommen. Dazu ein Beispiel: 


Ein Spieler hat insgesamt 5mal nach einer 1] wieder 
eine 1 eingegeben, andererseits jedoch in 15 Fällen 
nach einer 1 eine 0 gewählt. Bestand nun der letzte 
Splelzug in einer 1, so ist die Wahrscheinlichkeit, daß 
er jetzt wieder eine D wahlt, erheblich größer als die, 
eine 1 zu wahlen - vorausgesetzt natürlich, er hat 
seine Strategie nicht geändert. 


Die Haufigkeit, mit der eine bestimmte Folge 
zweier Zahlen auftritt, wird vom Computer laufend mit- 
gezahlt. Für die Schatzung der nächsten Spielereingabe 


wird dann die relative Haufigkeit der beiden möglichen 
Folgewerte verwendet. 
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In unserem Beispiel ergab sich für die Folge "11" 
die relative Haufigkeit 5/20 = 0.25, für die Folge "10" 
hingegen 15/20 = 0.75. Um nun einen Schätzwert mit der 
entsprechenden Wahrscheinlichkeit zu erhalten, wird 
eine Zufallszahl im Bereich zwischen O0 und 1 erzeugt. 
Liegt der Wert dieser Zufallszahl zwischen O0 und 0.25, 
so wird als nachste Eingabe eine I geschätzt, ansonsten 
eine 0. Somit ist gewährleistet, daß die vom Computer 
geschätzte Zahl mit einer Wahrscheinlichkeit gewählt 
wird, die der relativen Haufigkeit entspricht, mit der 
sie bisher auf ihre Vorgäangerin folgte. 
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Programmbeschreibung 


Zeile 10 - 90 
Erläuterung der Spielregeln. 


Zeile 100 
Die Repeat-Funktion wird für alle Tasten ein- 
geschaltet. Dadurch kann hier die Eingabe der zuletzt 


angegebenen Zahl durch Festhalten der RETURN-Taste 
wiederholt werden. Diese Funktion wird beim Beenden des 
Programmes wieder ausgeschaltet (Zeile 220). 


Zeile 110 - 120 
Die Funktion R zum Runden auf zwei Dezimalstellen 
wird definiert. 


Zeile 130 - 170 

z1I ist die jeweils vorherige Spielereingabe, Z die 
vom Computer geschätzte Zahl. Beide werden zu Beginn 
zufällig auf den Wert 1 oder O0 gesetzt. 

N gibt die Größe der Matrizen M und WS an, die von 
0 bis N dimensioniert werden. In der Matrix M werden 
die Übergangshäufigkeiten, in der Matrix WS die Wahr- 
scheinlichkeiten (bzw. die relativen Übergangshäufig- 
keiten) gespeichert. So steht z.B. in M(0,1) die Häu- 
figkeit, mit der die Zahlenfolge 0,1 eingegeben wurde. 


Zeile 180 - 250 
Die Eingabe des Spielers wird überprüft, unzu- 
läassige Zahlenwerte werden zurückgewiesen. 


Zeile 260 —- 310 

Die Spielereingabe (22) wird mit dem vom Computer 
geschätzten Wert (Z) verglichen. Bei Übereinstimmung 
wird der Trefferzähler (T) um eins erhöht. Der Spiel- 
stand wird ausgegeben. 


Zeile 320 - 410 

Die Matrix der Übergangshäufigkeiten (M) wird 
aktualisiert, d.h. der Zähler für die Folge 21,22 wird 
um eins erhöht. Die Übergangswahrscheinlichkeiten der 
Matrix WS werden entsprechend korrigiert. 


Zeile 420 - 510 

Der soeben eingegebene Wert 22 wird nach 21 un- 
gespeichert. Es wird eine Zufallszahl erzeugt und der 
nächste Spielerzug geschätzt. 
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Flußdiagramm:Lernen des Kopfoder Zahl-Spiel 


Anfang 


Setze ZA und 2 auf 
einen zufälligen An - 
fongswer + (® oder 1) 


Eingabe der vom 
Spieler gewahlten 
Zahl Z2 (Ö dder 1) 


Erhöhe den Zanler 
V für die Zahl der 
Versuche 


Ausgabe des vom Rechner 
geschatzten Wertes Z 


Bi TREFFER = TREFFER +4 


Spielstand ausgeben: 
TREFFER, V, % - Sat2 
der 'erratenen' 

Spiel zuge 


Zahler für dıe Zugfolge 
21,22 um 1 erhöhen 


Wahrscheinlichkeit der 
Zugfolgen neu berechnen 


Der soeben eingegebene 
wert Z2 ıst der neve 

vorhergehende Wert 21: 
ZA = 22% 


Schatzen der nachsten Eingabe 


auf Grund der aktvellen Über- 
gangswahrscheinlichkeiten 


19. REM.+aSS SEE LERNENDES ’KOPF ODER ZAHL” - SPIEL (D 
2% PRINT"IIM SLERNENDES ’KOPF ODER ZAHL” - SPIEL (I)" 

3@ PRINT"MM] SIE GEBEN IN BELIEBIGER FOLGE DIE" 

40 PRINT"E ZAHLEN © ODER 1 EIN, UND DER COMPUTER" 

38 PRINT"EH VERSUCHT, IHREN SPIELZUG ZU ERRATEN!" 

68 PRINT" Hell SIE KOENNEN DAS SPIEL BEENDEN, INDEM" 

78 FRINT"E SIE EINE NEGATIVE ZAHL EINGEBEN." 

86 PRINT" MeIeEIE -—-> START : TASTE DRUECKEN" 

90 GET At: IF A$="" THEN 98 

108 POKE 659,128: REM REPEAT-FUNKTION FUER ALLE TASTEN EIN 
LIO-BEN. Sansa RUNDUNGSFUNKTION 
126 DEF FN R{X) = INT(X#100+.5) 7/1906 

158 Zi = INT(RND(1)+.5) 

148 Z = INT{RND{1)+.D) 

158 N=i 

166 DIM M{N,N): REM MATRIX DER UEBERGANGSHAEUFIGEEITEN 

170 DIM WS{N,NI:REM MATRIX DER UEBERGANGSWÄHRSCHEINLICHKEITEN 
186 REM. „„unurcnne rien SPIELBEGINN 
178 PRINT "T" 

2068 FRINT "=" 

21@ INPUT” WIE HEISST IHRE ZAHL? (8 ODER 1):"5Z2 

228 IF Z2 x 8 THEN FOKE 558,8: PRINT" MAIKIMIeTeininteinieikteiste]" = END 
238 PRINT"AIE" 

248 F =8: IF Z2 6 DR Z2> N THEN F =1 

258 IF F =1 THEN PRINT"  #%#x* FALSCHE EINGABE! ":60T0 286 
268 V = V+1: REM ZAHL DER VERSUCHE 

278 FRINT"EH ICH HABE AUF" Z5 "N GETIPPT," 

286 IF Z2=Z THEN T=T+1:PRINT"H ALSO RICHTIG GERATEN!":GOTO 380 
298 PRINT" ALSO VERLOREN .„.. = 

Ssa8 PRINT"AII --> SPIELSTAND: "5 T3 "HM VON"SVS"M VERSUCHEN." 

31@ PRINT" D.H. ICH HÄBE"3FN R{T/V#100)5 "11 % ERRATEN! 2 


80 


320 
3: 

>48 
350 
268 
78 
>88 
>76 
4008 
410 
420 
430 
440 
4506 
460 
470 
490 
470 
300 
„10 


M(Z1,22) = MZ1,22) + 1 
51 = M(6,8) + M(8,1) 

IF Si = @ THEN GOTO 386 
WS(8,05 = M(6,0) / S1 
WS(8,1) = Mt8,1) / S1 
52 = M(1,0) + M(1,1) 

IF 52 = 6 THEN 438 
WS(1,8) = Mi1,8) / 92 
WS(1,1) = M(1,1) / 82 


R = RND{1) 

IF Zi = 1 THEN 498 

IF Rx W5(0,8) THEN Z = 
z=1 

GOTO 288 

IFR«< WS(1,2 THEN Z 
Z=1 

GOTO 208 


3: 


u 
u 
us 


READY. 
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MATRIX M UND WS AKTUALISIEREN 


NAECHSTE EINGABE SCHAETZEN 


GOTO 208 


GOTO 298 


Lernendes "Kopf oder Zahl" - 
Spiel (II) 


In der ersten Version dieses Spiels hielt das 
"Gedächtnis" des Programms alle Übergangswahrschein- 
lichkeiten zweier aufeinanderfolgender Eingaben für das 
ganze Spiel fest, unabhängig davon, ob z.B. 20, 200 
oder etwa 2000 Eingaben erfolgten. Zwar konnte auf 
diese Weise die langfristige Strategie eines Spielers 
erfaßt werden, nicht jedoch ein häufiger Wechsel des 
Spielverhaltens. Dies ist mit der hier vorgestellten 
zweiten Version von "Kopf oder Zahl" möglich. 


Dieses Programm besitzt gewissermaßen nur ein 


"Kurzzeitgedächtnis": es "behält" nur eine bestimmte 
Anzahl (K) von Übergangswahrscheinlichkeiten. wird 
diese Zahl durch eine weitere Spielereingabe über- 
schritten, so wird die neue Übergangshäufigkeit zwar 
hinzugezählt, der erste (d.h. älteste) Wert jedoch aus 
dem Gedächtnis gelöscht. Auf diese Weise werden immer 
nur die letzten K Eingabewerte berücksichtigt, so daß 


sich das Programm auch einer Änderung der Spieler- 
strategie sehr schnell anpassen kann. 


Dazu ein Beispiel: 


Angenommen, die "Gedächtnislänge" sei K=10 und die 
ersten 10 Eingaben sehen so aus: 


9: = 1, 790 


Die Matrizen M und WS enthalten demnach im Augen- 
blick die folgenden Werte: 


M WS 
0 1 O 1 
0 2 3 0 .40 .60 
1 2 2 1 30. 30 
Wird als nachstes nun eine 1 eingegeben, "fallt" 
der erste Wert (hier: 0) aus dem Gedächtnis, um für den 
neuen Wert (hier: 1) Platz zu schaffen, die übrigen 
Werte werden dementsprechend um eine Stelle (nach 


links) verschoben: 


101 %0 111 
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Ein solcher Speicher wird übrigens auch als FIFO 
(FIRST IN - FIRST OUT) bezeichnet. 


In der Häufigkeitsmatrix M und der daraus abgelei- 
teten Matrix WS wird die Veränderung des Gedächtnis- 
inhaltes dadurch berücksichtigt, daß der Zähler für die 
älteste Übergangshäufigkeit um eins vermindert, der für 
die neu hinzugekommene Übergangshäufigkeit um eins 
erhöht wird: 


M WS 

0 1 0 1 
) 2 2 02 3:0 30 
1 2 3 1 .40 .60 


In der folgenden Programmbeschreibung werden nur 
die Programmzeilen besprochen, in denen sich diese 
Version von der ersten Programmversion unterscheidet. 


Durch Einfügen einiger Ausgabe-Anweisungen können 
Sie die Inhalte des FIFO-Speichers L und der Matrizen M 
und WS laufend beobachten. Dies ist natürlich nicht 
sinnvoll, wenn Sie versuchen, den Computer zu über- 
listen, jedoch sollten Sie es auf jeden Fall einmal 
ausprobieren, um die Funktionsweise dieses Programms 
besser zu verstehen. Hier also die notwendigen Ausgabe- 
Anweisungen: 


378 IF V<=K THENL(W) = Z2: GOTO 431 


A351 REM. nosunnonnonnsennnen „.. „AUSGABE DES "GEDAECHTNIS"-INHALTS 
422 PRINT:PRINT 

453 FOR I=1 TO K 

s4 IF Ix= V THEN PRINT L{TD5:60T0 436 


4 
4353 PRINT” -"; 
AS6b NEXT I 


323. RE eEneeen —nnanausunes „AUSGABE DER MATRITZEN M UND WS 
ss2 PRINT"=S":FOR I=1 TO 18: FRINT "M"52 NEXT I 

3353 PRINTM(8,8)5 TAB{SIM(8,1)5 TAB(1ZIWS (8,0): TAB(24) 53WS(0, 1) 

324 FRINTM(1,0)5 TAB(SIM(1,1) 5 TAB{12)WS(1,6)5 TAB(24) 53 W5(1,1) 
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Programmbeschreibung 


Zeile 160 

Die Variable K bestimmt die "Länge" des Gedächt- 
nisses. Sie wird hier als Zufallszahl im Intervall von 
4 bis 23 bestimmt, damit Sie das Programm nicht so 
schnell überlisten können - auch wenn Sie wissen, wie 
es funktioniert! 


Zeile 200 
Das Feld L dient als FIFO-Speicher für das Ge- 
däachtnis. 


Zeile 230 

Hier wird die Gedächtnislänge K mit einer Wahr- 
scheinlichkeit von 0.05 während des Spiels neu be- 
stimmt. - Wenn Sie also meinen, die Gedächtnislänge 
entdeckt zu haben, kann sie schon längst wieder verän- 
dert sein! 


Zeile 360 - 430 
Hier wird der jeweils eingegebene Wert Z2 im Ge- 


dächtnis gespeichert. Bei einem Überlauf des FIFO- 
Speichers wird der älteste Wert "vergessen"; die ande- 
ren werden um eine Position verschoben, um Platz für 


den neuen Wert zu schaffen. 
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Flußdiagramm:Lernendes Kopf oderZanl mit Gedächtnis 


set?te K= Geclächt 
nıs Lange 


setze Z1 und Z auf 
einen zufälligen 


Anfangs wert [® oder A) 


verändere mit einer Wahr- 
scheinlichkeit von [2.8.) 
0.05) die Gedächtnis - 


Lange 


Eingabe der vom 
Spieler gewahlten Zah 
Z2 (d Ocier 4) 


neın 
Erhöhe den Zöhler V 
fur die Zahl der 
Versuche 


Ausgabe des vom 


Rechner geschätzten 
Wertes zZ 
Ja r 
a> TREFFER = TREFFER +1 


Spielstand ausgeben: 
TREFFER ,V, % - Satz 
der 'erratenen Spiel- 


speichere Z2 ın FIFO 
(FIRST IN - FIRST OUT - Speicher) 


häufigkeiten baw. 
-wahrscheinlichkeiten 


schatze auf Grund der Über- 
gangswahrscheinlichkeiten 
den nächsten Spielzug 


REN ses ea. una LERNENDES ’KOPF ODER ZAHL” - SPIEL (II) 


PRINT"/T": REM BILDSCHIRM LOESCHEN 

PRINT"3 LERNENDES "KOPF DDER ZAHL” -— SPIEL {ID" 
PRINT" SIE GEBEN IN BELIEBIGER FOLGE DIE ZAH-" 
PRINT"S LEN 8 ODER 1 EIN, UND DER COMPUTER" 
PRINT"M VERSUCHT, IHREN SPIELZUG ZU ERRATEN!" 
PRINT""Iei SIE KOENNEN DAS SPIEL BEENDEN, INDEM" 
PRINT"M SIE EINE NEGATIVE ZAHL EINGEBEN." 

PRINT" EIIEISIE] -—-> START : TASTE DRUECKEN: " 
GET At: IF A$="" THEN 108 


112 POKE 659,128: REM REPEAT-FUNKTION FUER ALLE TASTEN EIN 


REN ass a ee RUNDUNGSFUNKTTON 


DEF FN R{IX) = INT (X#190+.5)7/190 

Z1 = INT{RND{DI+.59 

Z = INT(RND(1)+.5) 

K = INT{RND{1)*20)+4: REM GEDAECHTNIS-LAENGE 

N=1 

DIM M{N,N): REM MATRIX DER UEBERGANGSHAEUFIGKEITEN 

DIM WS{N,N):REM MATRIX DER UEBERGANGSWAHRSCHEINLICHKEITEN 
DIM L(30): REM FIFO-SPEICHER ALS "GEDAECHTNIS? 


REM uuonunnsonnununernn SCmuunnonnunasnun en enn nn. SPIELBEGINN 


PRINT "7T’z REM BILDSCHIRM LOESCHEN 

IF RND{1) > „IS THEN K = INT{RND(1)#28) +4 
PRINT CHR$ (19): REM CURSOR HOME 

INPUT" WIE HEISST IHRE ZAHL? (8 ODER 1):"52Z2 


A IF Z2 x @ THEN FOKE 659,8: PRINT" MMeimisteininietsisteietein": END 
PRINT" aM" 
F=0 =: IF Z2 <& @8 OR Z2 >N THEN F=1 
IF F=1THEN PRINT"S  #%*%* FALSCHE EINGABE! ":G0T0 236 


V= V+i: REM ZAHL DER VERSUCHE 

PRINT=:PRINT" ICH HABE AUF"SZ5 "GETIPPT," 

IF Z2=Z THEN T=T+1:PRINT"M ALSO RICHTIG GERATEN!":GOTO 349 
PRINT" ALSO VERLOREN .„.. _ 

PRINT" --> SPIELSTAND: "5 T5 "NH VON”SV5 "N VERSUCHEN. " 
PRINT: PRINT" D.H. ICH HABE"SFN R{T/V#108) 5 "IL ERRATEN! 


86 


REM „un.0.. onseunennuusuenennnn Z2 IM GEDAECHTNIS SPEICHERN 


360 
378 IF V<=K THEN L(V) = Z2: GOTO 446 

388 Fi = Lil): F2 = L(2) 

398 FOR I = 1 TO K-1 

488 L{DD = LiI+1) 

410 NEXT I 

428 LiK) = 22 

436 IF M{F1,F2) > @ THEN M{F1,F2) = M{F1,F2)-1 

AEG REM aus ae MATRIX M UND WS AKTUALISIEREN 
458 M(Z1,22) = MIZ1,22) +1 

468 Si = M(0,0) + M(8,1) 

478 IF Si = ® THEN G0T0 590 

480 WS(0,0) = M(8,0) / Si 

496 W5(9,1) = Mi&,1) / 51 

598 52 = M(1,0) + M(1,1) 

516 IF 52 = ® THEN 556 

529 W5(1,0) = M(1,0) / 52 

536 W5(1,1) = M(1,1) / 52 

GAB REM annnaaennunnunnennnn “anennnne NAECHSTE EINGABE SCHAETZEN 
556 Zi = 22 

568 R = RND(1) 

570 IF Zi = 1 THEN 618 

586 IF R < WS(8,8) THEN Z = 8: GOTO 236 

590 7 =1 

666 GOTO 230 

61@ IF R < WS(1,8) THEN Z = 8: GOTD 230 

620 Zz =1 

638 GOTO 230 

READY. 
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Am laufenden Band 


Ihr Erinnerungsvermögen laßt sich durch dieses 
einfach aufgebaute Spiel testen. Die Spielregeln sind 
leicht und aus einer bekannten Fernsehsendung vielen 
vertraut. 


Nacheinander erscheinen auf dem Bildschirm ver- 
schiedene Figuren oder Symbole, die als Sprites defi- 
niert sind. Von diesen Figuren sollen Sie sich so viele 
wie möglich merken und nach der letzten gezeigten Figur 
an Hand einer Liste wiedererkennen. 


Im Programm sind 25 verschiedene Sprites vorgese- 
hen, von denen Sie sich beliebig viele zeigen lassen 
können. Außerdem können Sie die Geschwindigkeit, mit 
der sich die Sprites bewegen sollen, selbst wählen. 
Nachdem Sie die Angaben über Anzahl und Geschwindigkeit 
der Sprites gemacht haben, werden die Daten in 
Speicherplätze eingelesen. Anschließend erscheinen die 
Figuren auf dem Bildschirm. Danach wird eine Liste 
angezeigt, die - um das Raten etwas zu erschweren - 
auch eine Reihe nicht gezeigter Dinge enthält. 


Dieses Programm bietet sich geradezu an zum Ein- 
satz eigener Sprites. Mit dem Sprites-Hilfsprogramm aus 
unserem Buch "Grafik auf dem Commodore 64" können diese 
auch sehr einfach definiert werden. Bei einer eventuel- 
len Programmanderung brauchen Sie nur die Anzahl der 


vorhandenen Sprites in Zeile 30 zu ändern, die neuen 
DATA-Zeilen hinzuzufügen und die Liste der gezeigten 
Figuren zu erweitern. Die Dimensionierung der jewei- 


ligen Variablen muß natürlich entsprechend angepaßt 
werden! 
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Programmbeschreibung 


Zeile 20 
Dimensionierung der benötigten Variablen. 


Zeile 30 - 220 
Kurze Spielanleitung und Eingabe der Anzahl der 
Sprites sowie deren Geschwindigkeit. 


Zeile 240 - 320 

Die Angaben über Hintergrundfarbe und Farbe des 
jeweiligen Sprites, die Kennzahl, die angibt, ob ein 
Sprite vergrößert werden soll sowie die Einzeldaten 
jedes Sprites werden in dieser Reihenfolge aus den 
DATA-Zeilen eingelesen. 


Zeile 330 - 460 
Die Reihenfolge der Sprites wird durch Zufallszah- 
len festgelegt. 


Zeile 470 - 650 
Die Sprites werden mit der jeweils gewählten Ge- 
schwindigkeit über den Bildschirm gesteuert. 


Zeile 670 — 810 

Vor dem ersten Spiel werden die Begriffe und die 
Kennzahlen für im Programm gezeigte Sprites eingelesen 
(Zeilen 680 bis 740). Anschließend wird die Liste auf 
dem Bildschirm ausgegeben. 


Zeile 820 - 990 
Der Spieler gibt die Zahlen der Figuren ein, an 
die er sich erinnert. 


Zeile 1000 - 1140 

Die vom Spieler angegebenen Zahlen werden nach 
einer Kontrolle auf Mehrfachnennungen mit den Kennzah- 
len für die im Progamm vorhandenen Sprites verglichen. 


Zeile 1150 - 1230 


Ausgabe des Ergebnisses und Verzweigung zu einem 
erneuten Spiel bzw. zum Programmende. 
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Zeile 1240 - 2550 
Daten für Sprites. Jeweils die ersten drei Daten 


kennzeichnen die Hintergrundfarbe, die Farbe des 
Sprites und die Angabe, ob es vergrößert werden soll 
(1) oder nicht (0). Erst dann folgen die eigentlichen 


(63) Daten zu Darstellung des Sprites. 


Zeile 2560 - 2630 
Daten für die Liste der Begriffe. 


Zeile 2640 - 2660 

Kennzahlen, die Auskunft darüber geben, an welcher 
Stelle der Liste tatsächlich im Programm vorkommende 
Sprites stehen. 
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Flußdiagramm:Llaufendes Band 


Spielregeln 


Abfrage wieviele 
Bilder (AN), wie 
schnell 


Einlesen samtLiche 


Werte aus Data - 
Zelen 


“Poken“ aller Sprite 
Daten in Speicher - 
latze 


FoR I=4 TO AN 


Wahl aner Zufalls- 
zahl zwischen 1 
und N (x) 


g 
Zahl Schon wo 
ihlt 


nachstes I 


FoR I =1TOAN 


Zeigen des Sprites 
N.TI in gewünschte 
eschwindigKeit 


Eınlesen von 
Namen aus Data- 
Zeilen 


Eınlesen der kenn- 
zahlen für gezeigte 
Sprites 


Ausgabe der Liste 
auf dem Bildschirm 
Il-4 


Fıingaabe der Nummer 
eanes gesehenen 


®Biloles 


'Eg' 
eingegeben 
? 


3(I)= Eingabewert 


Kontrolle der 3(I) auf 
Doppelnennungen 


Vergleich der eingegebe- 
nen mit den tatsächlich 
gezeigten Bildern 


Ausgabe des Ergebnisse 


Ende 
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REM. „oo uunununuonesuuuenunenunnn.n en nnusnunnn AM LAUFENDEN BAND 
DIM NR% (108) ,FA (25) , V6% (25) , YA (50) „RA (50) „A$ (50) „, HF% (25) 


N=25:REM.„oousnuuo. Kuonunenunenueunnnnenunn „.... ANZAHL ZEICHEN 
PRINT"M 3 AM LAUFENDEN BAND z 
PRINT"M BEI DIESEM SPIEL KOENNEN SIE IHR” 


PRINT" GEDAECHTNIS PRUEFEN. " 

PRINT"M IN EINER VON IHNEN SELBST GEWAEHLTEN” 

PRINT" GESCHWINDIGKEIT WIRD EINE ANZAHL VON" 

PRINT" GEGENSTAENDEN UEBER DEN BILDSCHIRM" 
PRINT" ZIEHEN." 


116 PRINT"=} IHRE AUFGABE IST ES, SICH DAVON SD" 


126 
130 


PRINT" VIELE WIE MOEGLICH ZU MERKEN UND DIESE" 
PRINT" DINGE AUS EINER ANSCHLIESSEND GEZEIG-" 


140 PRINT" TEN LISTE WIEDERZUERKENNEN. " 


150 
160 
170 
186 
190 
208 
210 
220 
250 
2408 
250 
268 
276 
280 
290 
300 
318 
320 


PRINT"MHe WIEVIELE DINGE MOECHTEN SIE SEHEN" 
PRINT" (MAX"SNS"IWD"5:2 INPUT AN 

IF ANS1 OR AN>N THEN PRINT"7"5: GOTD15® 

INPUT" GESCHWINDIGKEIT (MAX. 10)"; G$ 

G5=VAL (6G$) 

IF 6%1 OR 65718 THEN PRINT"’T'5: GOTO 186 

IF JN$="J" THEN G60T0 330 

PRINT"IM BITTE ETWAS WARTEN, ERST WIRD GERECHNET" 
REM. oousuno u... ...uun ....... neun nanennenn VORBEREITUNG 
Z=N#635+AN 

FOR I=1 TON 

READ HFAID,FACD ,VGA (DD 

FOR J=6 TO &2 

Z=1-1 

READ D: POKE (225+17)*64+J,D 

PRINT" ARME": zZ; "I" 

NEXT J 

NEXT I 
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BEN SS .„.„ZUFAELLIGE AUSWAHL DER REIHENFOLGE 


FOR I=1 TO AN 

IF JN$="J" THEN G0TO 370 
Z=1-1:PRINT "ann"; 5° " 
X=INT{RND(1)*N)+1: UE=® 
FOR J=6 TO I-1 

IF X=Y4(J) THEN UE=1 
NEXT J 

IF UE=1 THEN GOTO 379 
YAtD=X 

NEXT I 

PRINT" NIIM FERTIG!" 


PRINT" (WEITER -> TASTE)I”"5 

GET Z$: IF Z$="" THEN GOTD 468 

REM. suuuonununnon Densunnenuuuuenensnunsu en -...LAUFENDES BAND 
POKE 53280, ® 

PRINT"IT" 

FOR BS=1824 TO 1583: POKE BS,224: POKE BS+54272,0: NEXT BS 
FOR BS=1964 TOD 2823: FOKE BS,224: POKE BS+54272,0: NEXT BS 
v=53248 

FOKE V+1,180 


FOR I=® TO AN-1 
POKE 53281, HF%(Y%(1+1)) 

FOR X=347 TO ® STEP -4x65 

R=INT (X/256) 

POKE V,X-256*R: POKE V+16,R 

POKE V+39, FA{YZI+1)) 

POKE V+23, VG%YX(I+1)): POKE V+29, V6% (Y%I+1)) 
POKE 2040, 225+Y%.(1+1) 

POKE V+21,1 

NEXT X 

POKE V+21,6 

NEXT I 
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668 REM....... unauunnne Enuunnunnunenurunsununn nun nenn AUSWERTUNG 
678 POKE 535281,14: POKE 53290,6 

688 IF JN$="J" THEN GOTO 750 

678 FOR I=1 TO 50 

7088 READ A${1) 

718 NEXT I 

720 FOR 1=1 TON 

720 READ RA(D) 

748 NEXT I 

7506 K=1: J=® 

768 PRINT "T’5CHR$(31)53 "WELCHE DINGE HABEN SIE GESEHEN’?" 
778 PRINT 

788 FOR I=J#10+1 TO (J+1)x*10 

798 IF I<X18 THEN PRINT" "5; 

868 PRINT 15". "5A$(D) 

810 NEXT I 

826 PRINT: PRINT 

8356 PRINT" BITTE GEBEN SIE DIE NUMMERN DER DINGE” 
840 PRINT" EIN, DIE SIE GESEHEN HABEN." 

858 PRINT" WOLLEN SIE DIE NAECHSTE SEITE SEHEN,” 
868 PRINT" DRUECKEN SIE ’E’."” 

876 PRINT" NUMMER: IBBRI";:NS="" 

888 INPUT N$: Nk=0: NR=VAL (N$) 

898 IF N$="" OR {NR{J*#10+1 AND N$<>"E") OR NR>(J+1)%*18 THEN Nk=1 
988 IF Nk=1 THEN PRINT"’T"5: GOTO 870 

918 IF N$="E" THEN GOTO 980 

720 PRINT" ="; 

730 BE=NR 

940 FOR Q=1+J*18 TOD NR: PRINT: NEXT ® 

9580 PRINT TAB(5)5"3"5A$ (NR) 

968 FOR Q=NR TO 15+J*18: PRINT: NEXT @ 

978 NRACK)I=NR: K=K+l1: GOTO 870 

780 IF J=4 THEN G60T0 1988 

9978 J=J+1: GOTD 768 
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PRINT" EINEN AUGENBLICK, DIE AUSWERTUNG FOLGT" 
PRINT" GLEICH!" 

NN=K-1: K=® 

FOR I=1 TO NN 

FOR J=8 TO I-1 

IF NRA{J)=NRZA(TDD THEN NRA(TII=0: KaK+l 
NEXT J 


NEXT 


I 


NN=NN-K 


RB=® 


FOR I=1 TO NN+K 

FOR J=1 TON 

IF NRACTDI=RA(J) THEN RB=RB+i 
NEXT J 


NEXT 


PRINT".T": PRINT" SIE HABEN VON"5 AN; "BILDERN" 


I 


PRINT RB3 "RICHTIG ERKANNT." 
IF NN-RB{=® THEN GOTO 1200 
PRINT: PRINT NN-RB5 "DER VON IHNEN ANGEGEBENEN" 
PRINT" BILDER WURDE({N) NICHT GEZEIGT!" 
PRINT: PRINT: INPUT" NOCH EIN SPIEL (J/N)"SJN$ 
IF JN$="J" THEN GOTO 156 
POKE 53280,14: POKE 53281,6: PRINT"TI’5CHR$ (154) 


END 
REN ae RE ERRRTIRRERE RR SEHE DATEN 
Release ERS TRRERREEIR CHE REIISEHRRGG anna BAUM 
DATA 15,5,1,0,9,0,0,36,128,6,48,128,1,173, 128,44, 107, 72,18 
DATA 41,112,10,170,36,102, 170,88, 26, 186,227, 71,101, 12,233 
DATA 174,48, 28,116, 204,3,255,0,0,124,0,0,124,0,0,124,0, 
DATA 124,0,0,124,0,0,124,0,0,124,0,0,124,0 

Reis eenieane EEE ERSEIENRERES „BLUME 


DATA 11,8,0,0,195,0,1,247, 128, 1,255, 128, 7,255, ®, 15, 255, 192 
15, 255, 224, 7,207, 240, 1,135, 224,7,207,128, 15, 254,0, 15 
255,9,7,127,128,9,255, 128,0, 247,0,0,49,0,8,179,0,1 


DATA 
DATA 
DATA 


179,0,1,247,0,0,254,0,0,124,0,0,48,0 
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BEN ee aeseeee ERBETEN TELEFON 
DATA 1,2,0,0,9,0,0,2,0,0,0,0,0,0,0,0,0,0,0,127,0, 1,255, 192 
DATA 3,255, 224,7,0,112,7,8,112,15, 128, 248, 31, 221, 252,0, 28 
DATA 0,7,156,240,7,128,240, 7,255, 240,7, 255,240, 7,255,240, 0 
DATA 0,0,0,0,0,9,8,8 


DATA 11,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,9,0,0,0 
DATA 0,9, 127,248,0,195,12,3,131,6,3,3,14, 15,255, 254,31, 255 
DATA 254, 63,255, 254, 63, 255, 254, 15, 1728, 248,7,0,112,0,0,0,8 
DATA 0,0,0,0,0 

BEN See ee Deren GELDSACK 
DATA 11,8,0,252,0,63,126,28,126,63,62,124,31, 254,248, 15,255 
DATA 249, 7,255, 224,3, 255,192, 1,255, 128,7,239, 192, 31,131,240 
DATA 63, 109,248, 127,111,252, 255, 111,254, 255, 131,254, 255,237 
DATA 254, 255, 237,254, 255,109, 254, 255,131, 254, 127,239, 255, 63 
DATA 255, 248, 31,255, 240 

BEN ae NN EN RR ERREINSER.: aansanununnnn LOKOMOTIVE 
DATA 14,0,1,0,24,0,8,19,255,0,51,255,0,227,3,1, 243,3, 1,243 
DATA 3,1,243,3,29, 243,3,29,243,3,29, 243,3, 255, 255, 255,255 
DATA 255, 255, 255,255, 255,241,255,143,238, 255,119, 223,126 
DATA 251,191,189, 252,63, 153, 252,63, 129,252, 31,0, 248,14, 
DATA 112 


DATA 6,3,0,6,0,0,6,0,0,6,6,0,56,14,0,48,31,0, 0, 127,0, 97,255 
DATA 128,103,63,193, 15,63, 227,31, 255,247, 297, 255, 255,199 
DATA 255, 255, 15, 255, 255, 31,255, 247,15, 255, 227, 7,255, 193,1 
DATA 255, 128,8, 127,0,0,30,0,0,14,0,0,4,0 


DATA 11,10,0,0,9,0,0,0,0,63,1,248, 127,131, 252, 255, 199,254 
DATA 255,199, 254,255, 239,254, 255, 255,254, 255, 255, 254,255 

DATA 255,254, 127,255, 252,63, 255, 248, 31, 255,240, 15, 255,224 
DATA 7,255, 192,3,255,128,1,255, 0,0, 254,0,0,124,0,0,56,9,® 
DATA 16,8 
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REM... 


ee a Eee ie onaie SEGELSCHIFF 
5,1,1,0,8,0,0,24,0,0,40,0,0,188,0,0,234,0,1,235,0,3 
235,128, 7,235, 192,15, 235, 224, 31,235, 240,63, 235,248, 127 
235, 252, 255, 235,254,0,8,0,0,8,@, 255, 255, 255, 127,255 
254,63, 255, 252, 31,255, 248, 15, 255,240, 7, 255,224 


11,4,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0 
56,128,0, 116,192, 0,255, 224,63, 248, 113, 255, 240, 31,255 
240, 15, 255, 224, 3,255, 192,0, 255,128, 0,62,0,0,12,0,0,10 
8,0,5,0,0,7,128 

SER REISEN LESER TERSSRUEROREURREDERN, “aunanannn a. SCHIRM 
14,0,0,0,16,0,48,24,0,72,104,0,68, 108,0,35, 164,0, 3,22 
0,2, 147,9,12,73,128,14,37,128, 49,18, 128,28, 202, 192,7 
53,64,1,202,224,0,245,224,0,63,240,0,15,240,0,3,248,0 
0,248,0,0,68,0,0,12,0,0,2 Ä 
ee een Saneannennnen «FAHRRAD 
13,11,1,0,0,0,0,0,0,0,0,0,3,0,8,10,192,128,30,7,128,11 
1,0,2,143, 240, 14,87,144,31,39, 192, 63,175, 224, 63,191 
224,63, 175, 224,31,55,192,14,3,128,0,0,0,0,0,0,0,9,0,0 
0,0,0,0,0,0,0,0 


a ua RR u 2 9 uw na u m 0 uw a a u m m 5 a = 5 PIERRE TEE EEE EGRESESRSOGEEER = © 1. 


3,2,1,0,56,7,9,124,12,0,214,28,1,239,48, 3,255, 176, & 
186, 249, 15, 125, 240, 31, 255, 240,53, 215,88, 123,239, 188 
255,255, 254,192,0,6,207,192, 6,207, 207,230, 207,206, 230 
297,294, 102, 207,72,38, 207,297, 230, 207,192, 6, 255, 255 
254,0,0,0 

TRIER ae ee ee eins KAFFERKANNE 
9,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,112,0,0, 248, 0, 225,252 
@, 115, 254, 192,59, 255, 224, 63, 255, 112,31, 255,56, 31,255 
24, 15,255, 24, 15, 255, 24, 15, 255,56, 7,254, 112,7, 254, 224 
3,255, 128, 3,252,@,1,248,0,0,90,0 
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19970 
2088 
2018 
2020 
2030 
2040 
2850 
2060 
2070 
208® 
2090 
2100 
2iie 
2120 
2130 
2140 
2159 
2160 
2170 
2189 
2190 
2200 
2210 
2220 
2230 
2240 
2290 
2268 
2270 
2280 
2290 
2300 
2318 
2320 
2530 
2240 


REN Sl ee ae Zain RTREEREONER: FRAGEZEICHEN 
DATA 0,4,1,0,240,0,1,248,0,3,156,0,7,14,8,7,14,0,7,14,0,0 
DATA 28,0,0,56,0,9,112,0,0,224,0,1,192,0,3,128,0,3,128,0,3 
DATA 135,0,3,135,0,1,206, 8,0, 252,0,0,120,0,0,0,0,0,48,0,0 


DATA 48,0 Ä 
REM uRRBR AB m © sa a a as aaa a a us gg a 2 m = 2 2 nn a 8 8 2a 0: so ass as 2 5 2 m a2 u © .susoan nn © FLASCHE 
DATA 11,5,0,0,56,9,9,56,0,,56,0,0,56,0,0,124,0,0,254,0,1 


DATA 255, 0,3, 255,128, 3,255, 128, 3, 255, 128, 3, 255, 128,3,1,128 
DATA 3,125,128,3,125,128,3,125,128,3,1,128, 3, 255, 128, 3, 255 
DATA 128,3, 255, 128, 3,255, 128, 3, 255,128 


DATA 6,7,1,9,0,24,0,0,56,0,8,112,0,0,224,0,1,192,0,3,128,@ 
DATA 231,0, 1,254,0,3,252, 0,63, 252,8, 127,254, 0, 255, 254,0, 252 
DATA 254,0,248, 124, 0,252, 248, 0, 255, 249,0, 127,240, 0, 63,240, 0 
DATA 31,240, 0,15, 224,8,7,192,9 


DATA 6,7,0,0,128,0,1,192,0,3,224,0,7,240,0,7,240,0,3,224,0 
DATA 0,128,0,0,128,0,7,249,0,7,240,0,7,240,0,7,240,0,7 
DATA 240,9,7,240,0,7,240,56,7,240,108,7,248, 204,7,241,140 
DATA 7,243, 24, 255,255, 48,63, 255, 224 


DATA 11,15,0,248,0,31,124,9,62,62,9,124,31,@, 248,15, 129,240 
DATA 7,195, 224,3,231,192, 1,255, 128,0, 255,0, ®,126,0,0,126, 0 
DATA 0,255, 0, 63,255, 252,99, 231,198, 199, 195, 227,207, 129, 243 
DATA 223,0,251,254,0,127,252,0,63,120,0,30,48,0,12 

REM. 2... REEL ERREIEERN RESET AIG EIEEON .. „WUERFEL 
DATA 6,1,1,0,0,9,3,255, 240, 7,255, 208, 14, 127, 176,30, 193,112 
DATA 63,230, 249, 127,253, 248, 170, 171,240, 255, 251,240, 255, 255 
DATA 240, 231,59,48,231,59, 48, 255, 255, 240, 231,59, 240, 231,59 
DATA 249, 255, 255, 224, 231,59, 192, 231,59, 128, 255, 255, 9,255 
DATA 259,0, 255, 248,9 

5 NEN Be ee RÜRCHE 
DATA 12,2,1,16,8,9,56,®,®, 108,0, 0,198, 0,0, 254,0,0,254,0,® 
DATA 254,9,0,238,9,0,238,0,@,254,0,0, 254,0, 0, 255, 255,252 
DATA 254,0,6,254,0,3,255, 255,255, 199, 255, 255, 199, 156, 231 
DATA 199, 156, 231,199, 156, 231,199, 255, 255, 199, 255, 255 
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2508 REM. 


12,6,0,0,0,0,0,0,0,0,0,0,2,0,0,2,9,0,6,0,0,14,0,0,30,0 
0,63, 255, 255, 127, 255, 255, 255, 255, 255, 127, 255,255, 63 
255,255, 30,0,9,14,0,0,6,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0 
0,0 
aaa LEITER 
9,15,1,12,0,0,6,0,0,15,0,0,25,128,0,176,192,0, 224, 96,0 
96,240, 0,49,152,0,27,12,0,14,6,0,6,15,0,3,25,128, 1,176 
192, 0,224, 96,9, 96,240, 0,49, 152,0,27,12,0,14,6,9,6,0,® 
3,0,0,1,128 
ER RR ee een sense STERN 
0,7,0,0,16,0,9,56,9,0,124,0,0,254,0, 1,255, 0, 255,255 
254, 127,255, 252, 63, 255, 248, 31,255, 240, 63, 255, 248, 127 
255, 252, 255, 255,254, 1,255,0,0,254,0,0,124,0,0,56, 8,0 
16,0,0,0,0,0,0,0,0,0,0,0,0,0 
ER EENEEURUENETE SER RSEONE DEREN aneenenenn nn ÜHR 
11,3,1,1,252, 0,7, 255,0, 30, 115,192,60, 113, 224,56, 112 
224,112,0,112,96,3,176, 192, 119,24, 192,126, 24,248, 124 
248,248, 120, 248,248, 112,248, 192, 0, 24, 192,0, 24,96, 0,48 
112,0,112,56, 112,224, 60, 113,224, 30, 115, 192,7,255, ®,1 
252,0 
enge “ununneen „DIESE DATEN MUESSEN AM SCHLUSS STEHEN! 
HASE , HAUS , BUCH, VOGEL, FISCH, SPIELKARTE, KERZE, MESSER 
UHR, SCHWEIN, WAAGE , GABEL, KANNE, HUND, TELEFON, BALLON 
FAHRRAD, REGENSCHIRM, TOPF ‚KLAVIER, KIRCHE, FRAGEZEICHEN 
AUSRUFEZEICHEN, SCHERE , LOEFFEL, PFEIL, GELDSACK , DAMPFER 
WUERFEL , BURG, HERZ , TREPPE, MOND, STERN, SONNE ‚LOK 
LEITER, FLUGZEUG, SEGELSCHIFF ‚FLASCHE, TASSE , GEIGE, BLUME 
LAMPE , AUTO, RAKETE, BAUM, GITARRE, STUHL, TELLER 
EEE ENREETIRSER. „u... „RICHTIGE BEGRIFFE 
2,4,5,7,9,13,15,17,18, 21,22, 24, 26,27,29,31,34,36,37,39 
40,43,45,47,48 
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Rentmeister 


Bei diesem Spiel können Sie wieder Ihr Würfelglück 
auf die Probe stellen. Mitspielen können beliebig viele 
Personen. 


Es wird mit drei Würfeln gespielt, wobei jeder 
Spieler sechsmal würfeln darf. Nach jedem Wurf bestimmt 
der Spieler, an welcher Position einer Tabelle der Wurf 
eingetragen werden soll. Je nach Stellung in der Tabel- 
le wird die gewürfelte Augenzahl mit einem Faktor mul- 
tipliziert und nach dem sechsten Wurf die Summe gebil- 
det. Gewonnen hat derjenige Spieler, der die höchste 
Summe erreicht hat. 
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Programmbeschreibung 


Zeile 20 - 170 
Spielerläuterung und Eingabe der Spielerzahl. 


Zeile 190 - 210 

Die zum Aufbau eines Würfels benutzten Steuer- 
zeichen sind mit der entsprechenden Tastenbelegung 
aufgeführt. 


Zeile 220 - 300 
Aufbau des Würfels durch Commodore-Grafik-Zeichen 
und Zuweisung zu Stringvariablen. 


Zeile 310 - 330 
Zufallswurf für alle drei Würfel. 


Zeile 350 - 400 
Erhöhung des Zählers der durchgeführten Spiele und 
Ausgabe der Tabelle zum Eintragen der Würfe. 


Zeile 410 - 480 
Bildschirmausgabe der drei Würfel und Aufforderung 
zum Würfeln. 


Zeile 500 - 620 
Durchführung eines Wurfes und Addition der Augen- 
zahlen (Zeile 620). 


Zeile 630 - 750 

Eintrag des Wurfes in die Tabelle laut Spieleran- 
gabe und Berechnung der Gesamtpunktzahl des Spielers 
(Zeile 750). 


Zeile 770 - 790 
Ausgabe der Gesamtpunktzahl des Spielers und Wech- 
sel zum nächsten Spieler. 


Zeile 800 - 830 
Feststellung des Spielers mit der höchsten Punkt- 
zahl. 


Zeile 840 - 860 


Der Gewinner bekommt ein Zehntel der Punktediffe- 
renz zu jedem anderen Spieler gutgeschrieben. 
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Zeile 870 - 1050 
Ausgabe des Spielstandes und Programmende bzw. 
Verzweigung zu erneutem Spielbeginn. 
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Flußdiagramm:Rentmeister 


Eingabe der Spieler 
zahl S 
Setze Spielerzähler 
auf 1 


Gib die Zahlen von 
3 bis & aus 


würfle sechsmal mit 3 Würfe 
und notiere jeweils die 
Summe der Augenzahlen neben 
einer der Zahlen von3 bis ®. 


Mul tıpl iziere die beiden 
Zahlen miteinander. 


6b die Summe der 
Produkte aus. 


erhöhe Spieler- 
zahler um A 


Bestimme den Sieger, 
d.h. den Spieler mıt 
der höchsten Punktzahl 


Weise dem Sieger von jedem 
Spieler 1/10 (aufgerundet) 
des jeweiligen Punkteunter 
Schiedes zu. 


6b den Punktestand 


aller Spieler aus 


Ja 


nein 


Ende 


18 
20 
30 
40 
a 
60 
70 
80 
786 


REM. a a RENTMEISTER 
PRINT"IM 3 RENTMEISTER 2 

PRINT"M DIESES SPIEL IST FUER BELIEBIG VIELE" 

PRINT" SPIELER GEEIGNET." 

FRINT"M JEDER SPIELER DARF &-MAL MIT JE DREI" 

PRINT" WUERFELN WUERFELN. " 

FRINT"N NACH JEDEM WURF MUSS ER ANGEBEN, BEI” 

FRINT" WELCHER DER ZAHLEN VON 5 BIS 8 DIESER" 

PRINT" WURF EINGETRAGEN WERDEN SOLL." 


188 
118 
120 
130 
148 
158 
160 
1780 
180 
170 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
318 
320 
3350 


PRINT"®} DIE SUMME DER AUGENZAHLEN DES WURFES" 
PRINT" WIRD MIT DER ANGEGEBENEN ZAHL MULTI-" 
PRINT" FLIZIERT.” 

PRINT"" NACH DEN SECHS WUERFEN WIRD AUS DEN" 
PRINT" ERGEBNISSEN DIE SUMME GEBILDET." 
FRINT"® DER SPIELER, BEI DEM DIESE SUMME AM” 


FRINT" GROESSTEN IST, HAT GEWONNEN. " 

INPUT"M WIEVIELE SPIELER"5S 

DIM PS) 

REM....BEI DEN WUERFELN BENUTZTE STEUERZEICHEN: 

REM. -.euunnen- ETRL-2 ("23") ,CURSOR UNTEN ("8") „CURSOR LINKS" 
REM... „ETRL-1C"e") „ANDERE ZEICHEN = GRAFIK- BZW. LEERZEICHEN 
WE ti)" IE Se EEE | I" 

WEi(Z)="mie BIRNEN Em am" 

WE(5)="mie mITIREEN Se m ITERRER | em" 

W$t4)="uie ou |TENREE | m | | | [Er zu) 225 

Ws (5)="mie au |TENEBEI| 30 m IFEEBRE Se mi" 

WS(G)="uie wm TINEENI De om FERNEN | De em" 

FOR I=1 TO 6 

WE {I)="m:  BERERT" +WE CT) + ER " 

NEXT I 

FOR I=1 TO 3 

W{D=INT(RND(1)%*6) +1 

NEXT I 
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349 
359 
360 
370 
388 
398 
408 
410 
429 
430 
440 
450 
460 
470 
480 
490 
568 
518 
520 
530 
540 
550 
560 
570 
586 
598 
600 
618 
628 
630 
648 
658 
668 
670 
688 
699 
708 


SP=SP+1 

FOR K=1 TO 5 

PRINT" 

FOR I=3 TO 8 

PRINT 1: PRINT 

NEXT I 

PRINT" 10"; TAB(23) 

PRINT"SPIELER"5K 

PRINT" SIaInIeimiaistelatsiststeinte "SWS CWEL)) 
PRINT" =Ieisteistainfetsteiristeinie]" 5 TABODSWSCWEZI) 


..... SPIELFELD 


PRINT" IRIMalstateieieteleteteinte]" 5 TABELDISWECWEN I SCHR$ (154) 
PRINT" Ielstelaininistnteisiezeinteie" 5 TAB (2395 "ZUM WUERFELN. — >" 


PRINT"""5 TAB(Z2 ; "TASTE DRUECKEN" 

GET Z$: IF Z$="" THEN GOTD 486 

FOR Q=1 TO 6 

FOR I=1 TO 5 

W{IDD=INT{RND(1)*6) +1 

NEXT I 

FOR J=1 TO 28 

PRINT" SIEIKInIaimIeisteteisteinteim "5 W$ (J-48# INT (J/6) +1) 


PRINT " SIMInieIetatainiatateinteinie]" 5 TABOTI SWS CJ-68 INT (J/6)) 


PRINT" SIRIsTeieinteisteistaleinteiel® 5 TABCOLZI SWS (J-5*INT (J/6) +1) 


FOR ZT=1 TO 20: NEXT ZT 

NEXT J 

PRINT" Ialslsteinteisieteleietaintel "WE CWEL)) 
PRINT" :SIelefateinteisteteietstetetel" 5 TABCTI SWS CWEZI) 


PRINT" JSlEImtaialeinieteiststeintel" 5 TABCLZISWEAWESI I SCHR$ (154) 


SU=SWEIIHWIZIHWD) 
FRINT" AN"; 
FRINT" WO SOLL DER WURF EINGETRAGEN WERDEN" 
INPUT" "5Z 
IF 2<3 OR Z>B THEN PRINT"’T’5:GOTDO 650 
FRINT " =Ieleleieinteisieteisisgeintateisieteleinie]" 5 
PRINT" ge 
PRINT" # 
FRINT"="5 
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REM 37 LEERZEICHEN 


718 FOR I=8 TO 2#(Z-3) 

728 PRINT 

730 NEXT I 

748 PRINTTAB(D3"#"55U5 TAB(9) 5 "="5 Zx5U 

750 P(K)=P(K) +Zx*SU 

768 NEXT O 

778 PRINT" SI" 5 TAB (233 5 "PUNKTE: "5P{K) 

788 FOR ZT=1 TO 1088: NEXT ZT 

798 NEXT K 

888 REM..... .nunatenennonune ....... nunnsuuen „nano n.n. „AUSWERTUNG 
818 FOR K=1 TO S 

828 IF PiKXd>MP THEN MP=P(K): MS=K 

830 NEXT K 

848 FOR k=1 TO S 

858 PStMS)=PS{MSI +INTLELP(MSI-P (K) +5) /10) 

868 NEXT K 

870 REM. .uononununnussnnnnunnununeonnnensneunuun nenn nn nn „ERGEBNIS 
888 PRINT”IIM" 

878 PRINT" GEWONNEN HAT SPIELER"3MS3 "MIT"5PS{MS) 5 "PUNKTEN. " 
980 PRINT"MM DER SPIELSTAND SIEHT NACH DEM” 

918 PRINT SP5"M. SPIEL FOLGENDERMASSEN AUS: " 

920 PRINT 

958 FOR k=1 TO S 

948 PT(K)I=FTIiK) +PS(CK) 

7580 PRINT" SPIELER"5KS "IE "3 PT IK) 5 "PUNKTE" 

968 NEXT K 

778 PRINT" MEIN" 

988 INPUT" NOCH EIN SPIEL (J/N)"SJN$ 

9790 IF JN$S>"J" AND JN$<>"N" THEN PRINT"77’5= GOTDO 980 
1880 IF JN$="N" THEN END 

1018 FOR kK=1 TO S 

1820 P{kK)=0: PS(K)=0 

1850 NEXT K 

1040 MP=0: MS=® 

1850 GOTO 348 


READY. 110 


RENTMEISTER 


+ 4 = ]12 

4x 16 = 64 
#9 = 45 

x 12 = 72 
7*13 71 

8 +17 = 136 
.u| (al in. 
.. CH .s 


rd 


ON Een» 6% 
E: Ze Zu Ze. Ze Zu > 


Im .OS 00 0 
r.} 
Hu H 
Re 4 
Pa „N 


% 


SFIELER 1 


FUNETE: 428 


ZUM WUERFELN —> 
TASTE DRUECKEN 


SFIELER 3 


FUNETE: 381 


ZUM WUERFELN > 
TASTE DRUECKEN 


Suchspiel 


Ein vielleicht nicht so bekanntes Spiel ist dieses 
Suchspiel, das mit wenigen Regeln und einem einfachen 
Spielplan auskommt. 


Der Computer "versteckt" vier Sterne in einem 
Feld, das nach Wahl zwischen 3*3 und 10*10 Feldern groß 
ist. Ziel des Spielers ist es, innerhalb möglichst 


weniger Spielzüge die versteckten Sterne zu finden. 


Dazu setzt der Spieler (durch Angabe der Koordina- 
ten) auf beliebige Felder. Von jedem angegebenen Punkt 
aus kann er die sich dort kreuzenden horizontalen, 
vertikalen und diagonalen Linien "einsehen", Jedoch 
keine Abstände schätzen. 


Jeder Spielerzug wird vom Computer ausgewertet. 
Als Hilfstellung wird angegeben, wieviele der versteck- 
ten Sterne der Spieler von seinem aktuellen Standort 
aus sehen kann. Diese Angaben zu den einzelnen Punkten 
müssen dann so kombiniert werden, daß alle vier Sterne 
gefunden werden. 


Als weitere Hilfe ist vorgesehen, daß der Spieler 
sich die von einem Punkt, von dem aus keine Sterne zu 
sehen sind, ausgehenden horizontalen, vertikalen und 
diagonalen Linien kennzeichnen lassen kann, umso die 
Felder auszuschließen, in denen sich mit Sicherheit 
kein Stern befindet. 


Der Spielplan auf der nächsten Seite zeigt einen 
möglichen Spielstand. 


SPIELPLAN:SUCHSPIEL 


ZENZSODOINOEIN 


JERUEINEENEENN 


ZNEEINBOBNTEIN 
ZENEINBEINOLIN 
ZEEINEENLINISEIN 
ZEEEBEINERNNNERLIN 


ZE.SERBRBENNNIINERNN 
IIINAÄANANUN 
ne 


® Eingabe des Spielers 


versteckte Punkte 


Nullinie 


x 
ne 
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Programmbeschreibung 


Zeile 10 - 230 
Dimensionierung des Spielfeldes und kurze Spieler- 
kläarung. 


Zeile 240 - 290 
Eingabe der gewünschten Spielfeldgröße (min.3*3, 
max. 10*10). 


Zeile 300 - 500 

Spielfeldausgabe mit Grafikzeichen entsprechend 
der gewählten GrÖße. (Grafikzeichen: Mittelstriche, 
Kreuze, Ecken und T-Verbindungen). 


Zeile 520 - 540 

Die Feldvariablen, die das Spielfeld darstellen, 
und die Variablen zur Beschreibung der Spielsituation 
werden auf Null gesetzt. (ZU% = Zahl der Spielerzüge, 
M% = Anzahl der Markierungen von Null-Linien, GF = 
bereits gefundene Sterne). 


Zeile 560 - 650 
Vier Sterne werden durch Zufallszahlen auf ver- 
schiedene Felder des Spielfeldes verteilt. 


Zeile 670 - 780 

Eingabe der Koordinaten sowie Überprüfung auf 
richtige Eingabe. Wurde ein Stern gefunden, soll in den 
Bildschirmspeicher das entsprechende Zeichen gepoket 
werden (Zeile 780). 


Zeile 790 - 1080 

Vom angegebenen Spielfeld aus wird in alle Rich- 
tungen geprüft, wieviele Sterne zu sehen sind. Die REM- 
Zeilen geben die jeweilige Richtung an. 


Zeile 1090 - 1130 
Es wird ausgegeben, wieviele Sterne zu sehen sind. 


Zeile 1140 - 1170 

Setzen des angegebenen Punktes (oder Sterns). In 
dieser Version wird im jeweiligen Spielfeld vermerkt, 
wieviele Sterne von dort aus zu sehen sind. Zur Er- 
schwerung kann hier auch nur ein Kreis (oder ein belie- 
biges anderes Zeichen) gesetzt werden. Dann muß Zeile 
1160 z.B. lauten: BP = 31. 
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FluRdiagramm:Suchspiel 


Spielregeln 


zufällige Wahl 
dler Koordinaten 
for 4 „Versteckte 


'*' Setzen, Erhö- 
hen Gesamtzahl 
gefundener Punkte 
um A 


Ssteckter Punkt 
gefunden 
? 


alle 
Tunkte gefun: 
den 


Ausgabe 
Ergeb NIS 


überprüfen, wieviele Ja 
versteckte Punkte 


gesehen werden 


Punkt setzen 


Ausgabe | wieviele 
Punkte gesehen 
werden Können 


nein 


sollen 
Ö-Linien mar- 
kiert iverae 


Ja Markieren der 
Ö- Linien 


90 


186 


REM. .... aaa 2a au 2a ss oo 2 2 u ao 98 8 = 8 2 5 = 2 u 5 2 5 8 3 u. u 9 2 5 8 2a na 9 u m m 8 


DIM A(19,10) 
PRINT":IM 3 SUCHSPIEL " 
PRINT"M BEI DIESEM SPIEL ”VERSTECKT’ DER COM-" 
PRINT" PUTER IN EINEM FELD, DESSEN GROESSE" 
PRINT" SIE BESTIMMEN, 4 PUNKTE." 

PRINT" IHRE AUFGABE IST ES, DIESE PUNKTE" 
PRINT" MIT SO WENIG ZUEGEN WIE MOEGLICH ZU" 
PRINT" FINDEN." 

PRINT"" DABEI ERHALTEN SIE FOLGENDE HILFE: " 


118 PRINT"M ES WIRD ANGEGEBEN, WIEVIELE DER VER-" 


120 
130 
140 
150 
160 
170 
180 
196 
200 
210 
220 


PRINT" STECKTEN PUNKTE SIE VON DEM GEWAEHLTEN" 
PRINT" FELD AUS SEHEN KOENNEN." 

PRINT" VON IHREM FELD AUS UEBERBLICKEN SIE" 
PRINT" DIE HORIZONTALE, VERTIKALE UND BEIDE" 
PRINT" DIAGONALEN RICHTUNGEN. " 

PRINT" a 

PRINT" 1.” SOLLTEN SIE VON EINEM FELD AUS” 


PRINT" —#— 0 PUNKTE SEHEN, KDENNEN SIE SICH"3 


PRINT" +1. DIESE LINIEN MARKIEREN LASSEN." 


PRINT" I" 
PRINT" (WEITER -> TASTE)"; 


250 GET Z$: IF Z$="" THEN GOTD 2530 


240 


PRINT"IIH WIE GROSS SOLL DAS SPIELFELD SEIN?” 
INPUT" LAENGE (MAX. 10)"5L 

IF L{S OR L>18 THEN PRINT"!T’5: GOTO 258 
INPUT" BREITE (MAX. 19"5B 

IF B{3 OR B>16 THEN PRINT"’T’5=: GOTO 270 
B=B-1: L=L-1 


SUCHSPIEL 


REM. = u 0 8 8 8 8 8 8 58 58 2 2 EU RR SB 2 52 un 2 9 SS m 0 = © as a 5 0 nuansa aa su an a a 2 a m SPIELFELD 


PRINT"IN "5 
FOR I=® TO L: PRINT"M"5I5: NEXT I 

PRINT | 

PRINT" r"5 

FOR I=1 TO L: PRINT"—"5z NEXT I 

PRINT"—" 

FOR J=1 TO B 

PRINTCHR$ (64+J) 5 

FOR I=8 TO L: PRINT"! "52 NEXT I 

PRINT" I" 

PRINT" +"5 

FOR I=1 TO L: PRINT"—"5= NEXT I 

PRINT"—" 

NEXT J 

PRINT CHR$(64+J) 5 

FOR I=® TO L: PRINT" I "52 NEXT I 

PRINT" I" 

PRINT" 1"; 

FOR I=1 TO L: PRINT"—#"5: NEXT I 

PRINT"—" 

REN. een un. AUSGANGSSITUATION 
FOR I=® TO 18: FOR J=® TO 1@: AtJ,I)=@: NEXT J: NEXT I 
BS=1146: FS=55418 

ZU4=0: Mi4=0: GF=6 

REN esse ee IETRIERN AUSWAHL DER COMPUTERPUNKTE 
FOR I=1 T0 4 

XCDD=INT(RND(1)*B)z Y(I)=INT(RND(1)*L) 

IF I=1 THEN 60T0 640 

KD=0 

FOR J=1 TO I-1 

IF (X(D=XtID)) AND (Y(ND=Y{I)) THEN Kl=1 

NEXT J 

IF KD=1 THEN GOTO 578 

NEXT I 

FOR I=1 TO 4: AIX(1),Y{D)=1: NEXT I 
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668 
678 
688 
6490 
708 
718 
720 
730 
740 
758 
768 
770 
786 
770 
800 
818 
820 
850 
840 
850 
868 
870 
880 
890 
908 
710 
920 
930 
940 
950 
9760 


REN ee ee SEHEN “annnenn „EINGABE 
ZU%=2UX+1 

PRINT "Sin": TAB (23) 3" ZUG: "3 ZU% 

PRINT "Mm" TAB(23)3 "IHRE WAHL? "5 

GET A$: IF A$="" THEN GOTO 708 

IF ASC(A$)<65 OR ASC (A$) >(74-(9-B))THEN G60TO 708 

PRINT A$; 

GET B$: IF B$="" THEN GOTD 739 

IF ASC(B$)<48 OR ASC(B$) >(57-(9-L))THEN 60TO 736 

PRINT B$ 

Z=ASC (A$)-65: S=ASC (B$)-48 

BP=8: IF A(Z,5)=1 THEN GF=6F+1: REM........ 1 PUNKT GEFUNDEN? 
IF A(Z,S)>® THEN BP=42 

12 EEE RER ETRORREIEN WIEVIELE PUNKTE SIND ZU SEHEN? 
A= 

esse EEE “annanan . SENKRECHT 
FOR I=® TO B 

IF I=Z THEN 60T0 859 

IF A(I,5)>0 THEN AsA+1 

NEXT I 

REM oaannnnn I ERS N ENTE DERIENER ER BEERTSE EHER RAR WAAGERECHT 
FOR I=8 TOL 

IF 1=5 THEN GOTO 990 

IF A(Z,I)>® THEN A=A+H1 

NEXT I 

IF A(Z,5)>@ THEN AsAtlı A(Z,5)=2 

23 5 RES NEE IRDRENETERRERSTR RUE EUESEIRE U ERER CR RUHE SETEERTERDERSERSNER? DIAGONALEN 
REN ea ae ee SUR SEA .„ „LINKS-OBEN 
I=0: IF Z=® OR S=® THEN G60T0 970 

I=I+1: IF AtZ-I,S-I)>® THEN A=A+1 


IF Z-I>® AND S-I>8 THEN GOTO 950 


978 REM. „.nconucnuuunnnene nennen nennen une nenn RECHTS-OBEN 


988 I=0: IF Z=0 THEN GOTD 1008 
998 I=I+ri: IF A(Z-1,5+D>8 THEN A=A+1 


1088 
18210 
1020 
1050 
1040 
1050 
1060 
1870 
1088 
1098 
1100 
1118 
1126 
1130 
1148 
1150 
1160 
1178 
1180 
1198 
1208 
1210 
1220 
1230 
1240 
1250 
1268 
1270 


IF Z-I>0 AND S+I<L THEN GOTO 990 
EM ee LINKS-UNTEN 
1=0: IF 5=8 THEN G0TO 1050 

1=I+1: IF AtZ+1,S-D>® THEN AsA+l 

IF Z+I<B AND S-I>8 THEN G0T0 1938 
BENENNEN REISE IENEN RRSTRERIEN RENEHELUHREIEGR ESSIG RECHTS-UNTEN 


I=I+1: IF AtZ+1,5+1)>0 THEN A=A+1 

IF Z+I<B AND S+I<L THEN GOTO 1878 

REN. ass Kunuaoesanenanae AUSGABE ANZAHL PUNKTE 
IF GF=4 THEN GOTO 1140 

PRINT "MM"; TAB(Z23)5 "SIE KOENNEN VON” 

FRINT TAB(ZRP5A$:B$S" AUS"SA 

PRINT TAB(Z22) 5 "PUNKT (E) SEHEN." 


REM ns = na a 2 5 5 5 2 3 0 = © EUER REGEN REN cd, U SETZEN 
IF BP=42 THEN GOTO 1170 
BP=48+A 


FOKE BS+7#280+5#2,BP: POKE FS+Z#80+5%*2,7 

IF GF=4 THEN GOTO 1968 

REM. oasosaueunueusen een nenseununennunn nn „nun. « MARKIERUNG 
PRINT "Aa"; TAB(23)5 "SOLLEN 8-LINIEN” 
PRINT TAB{25)5 "MARKIERT WERDEN?" 

PRINT TAB(Z3I5" (NEIN = "RETURN?”)" 

PRINT TAB{ZDIS "TJA = ’J’)"5 

GET M$: IF M$="" THEN GOTO 1240 

IF M$<>CHR$ (15) AND M$<>"J" THEN GOTD 1248 
IF M$=CHR$ (153) THEN GOTD 1840 

MA=M%A+1 


REM. .... Kuunussensusununnnnnunnnennn nn een „MARKIERUNG SETZEN 
REM. „.uunnunn .uensuunununns nuunuununenenenennen .„WARGERECHT 


IF 5=L THEN GOTO 1368 

FOR I=5+1 TO L 

PE=PEEK (BS+Z*80+1#*2) 

IF PE>41 AND PE<B2 THEN GDTO 1350 

POKE BS+Z#80+1*2, 224: POKE FS+Z#86+1#=2,14 
NEXT I 

IF 5=® THEN GOTO 1430 

FOR I=5-1 TO 8 STEP -1 

PE=PEEK (BS+Zx80+1%*2) 

IF PE>41 AND PE<82 THEN GOTO 1410 

POKE BS+Z*80+1*2, 224: POKE FS+Z7*80+1#2,14 
NEXT I 

REM. „.osscn0. Denusnusmunmnsennensnuensennennnnenen ns SENKRECHT 
IF Z=8 THEN G0TO 1490 

FOR I=Z-1 TO 8 STEP -1 

PE=PEEK (BS+1#80+5#2) 

IF PE>41 AND PE<X82 THEN GOTO 1488 

POKE BS+Ix*80+5%2, 224: POKE FS5+1*80+5#2,14 
NEXT I 

IF Z=B THEN GOTO 1550 

FOR I=Z+1 TO B 

PE=PEEK (BS+1#80+5%2) 

IF PE>41 AND PE<82 THEN GOTO 1540 

POKE BS+1*80+5*2, 224: POKE F5+1*80+5%*2,14 


NEXT I 

REM. uunnuonnunnasenununnun nn .nuunnunnuunnnenen en. DIAGONAL 
REM. 2enuonuoonnsenunen ....... .orueuneunnnnunnen.„ LINKS-OBEN 
J=® 


J=J+1: IF (Z=8 OR 5=8) THEN GOTO 1640 

PE=PEEK (BS+(Z-J) #86+(5-J)#2) 

IF PE>41 AND PE<X82 THEN GOTO 1628 

POKE BS+(Z-J)*80+(5-9)%2,224: POKE FS+(Z-3)%80+(5-J)*2,14 
IF Z-J>@ AND 5-J>8 THEN GOTD 1588 
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REM... co... .nunnnsneununusuen ...... Snranenuesunse RECHTS-OBEN 


J=J+1:1F (Z=8 OR S=L) THEN GOTO 1718 

PE=PEEK (BS+1Z-J) *B0+15+J)%*2) 

IF PE>41 AND PE<B2 THEN GOTO 1696 

POKE BS+(Z-J)*80+15+J)#2, 224: POKE FS+t2-1%*80+(5+J)*2,14 
IF Z-J>8 AND S+J<L THEN GOTO 1659 

REM...... Konsueuausnenuunuesunnnne .orenuunnunnnn LINKS-UNTEN 


J=J+1: IF (Z=B OR 5=®) THEN GOTD 1789 

PE=PEEK (BS+(Z+J)*80+(5-J)%*2) 

IF PE>41 AND PE<82 THEN GOTO 1768 

POKE BS+(Z+J)#80+(5-17)#2,224: POKE FS+(Z+J)#80+1(5-J9)*2,14 
IF Z+J<B AND 5-J>® THEN GOTO 1728 

REM. zes .unnasnnanurnenne ...... nr unnnnunus „ „RECHTS-UNTEN 


J=J+1: IF (Z=B OR S5=L) THEN GOTO 1840 
=PEEK {BS+ (Z+J) #80+ (5+J) #2) 
IF PE>41 AND PE<8Z THEN GOTD 1830 
POKE BS+(Z+J)*80+(5+J)#2,224: POKE FS+(Z+9)%*80+(5+J)%*2,14 
IF Z+tJ<B AND S+J<L THEN GOTO 1790 


REM. euosonenunnenunuennuununune nun annenn .. TEXT LOESCHEN 
REM.„.ousenunn..AM ENDE DER ZEILE DIE ANZAHL AN LEERZEICHEN 
PRINT "SIR" TAB(23)35" ": REM 1@ 

PRINT "N"; TAB(25) 5" “: REM 14 

PRINT "MM"; TAB(23)5" "ı REM 15 

PRINT TAB(23)5" ": REM 10 

PRINT TAB{23)5" “= REM 15 

PRINT "ME"; TAB(23) 5" ”": REM 15 

PRINT TAB(23)5" "ı REM 16 

PRINT TAB(23)5" "= REM 17 

PRINT TAB(23)5 "7 "ss REM 13 

GOTO 668: REM...„sun... .nnonuun0n „uuennnn. « NAECHSTE EINGABE 
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REM. onanano. unesuunnue .u.n0n |... ..nnn0s u... SPIELENDE 
REM. un nnuns anerseehenne „BERECHNUNG DER ERREICHTEN PUNKTE 
MAX=L: IF LSB THEN MAX=B 

PK%={L+1)# {B+1) +MAX+1-ZUA-MAXHMA 

IF PKA>FM% THEN PMA=PK% 

BEN uses ..n|0nun« AUSGABE ERGEBNIS 
PRINT "SIR"; TABC2S) 5 "ALLE PUNKTE SIND” 

PRINT TAB(23) 5 "GEFUNDEN!" 

PRINT "mM"; TAB(23) 5; "ERREICHTE" 

PRINT TAB(233 5 "PUNKTZAHL: "5 PK% 

PRINT "m"; TAB (23) 5; "HOECHSTE BISHER" 

FRINT TAB{23) 5 "ERREICHTE" 

PRINT TAB(23) 5 "PUNKTZAHL:= "3; PMA 

PRINT "MN" TAB(22; "NOCH EIN SPIEL” 

PRINT TAB{(Z23935:INPUT "J/N"SJN$ 

IF JN$<S>"N" AND JN$<S>"J" THEN PRINT"T7'5: GOTO 2108 

IF JN$="J" THEN GOTO 240 

PRINT"IT" 

END 


READY. 
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Die böse Sieben 


In diesem Spiel können Sie Ihre Rechenfertigkeiten 
unter Beweis stellen - oder auch trainieren! Dazu zeigt 
der Computer eine (ganzstellige) Zufallszahl zwischen 1 
und 70 an. Sie müssen jetzt möglichst schnell entschei- 
den, ob diese Zahl durch 7 (ohne Rest) teilbar ist oder 
ihre Quersumme (also die Summe aus den einzelnen Zif- 


fern) 7 ergibt. Sollte dies der Fall sein, so drücken 
Sie die Funktionstaste '"F7", ansonsten die Funktions- 
taste "Fi". 


Damit Sie ihre Leistung unter ständiger Kontrolle 
haben, wird laufend die Zahl der Versuche und der 
Treffer angezeigt. Natürlich wird auch die Zeit berück- 
sichtigt, die Sie für Ihre Entscheidung benötigen: eine 
Uhr lauft ebenfalls mit. 


Es muß wohl kaum erwähnt werden, daß das Programm 
selbstverständlich auch für andere Zahlen verwendet 
werden kann: wenn Sie das Rechnen mit der "bösen Sie- 
ben" also im Schlaf beherschen, ersetzen Sie einfach 
die Zahl 7 (bzw. 70) in den entsprechenden Programm- 
zeilen durch den von Ihnen gewünschten Wert. Besser 
noch: verwenden Sie an Stelle der konstanten Werte 
Variablen und fragen Sie beim Programnmstart ab, welche 
Zahl als "böse Sieben" dienen soll! 
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Programmbeschreibung 


Zeile 10 - 120 


Hier wird erläutert, wie das Programm zu bedienen 
1St., 

Zeile 140 

Die Variablen Z und S geben an, in welcher Zeile 


und Spalte der Cursor positioniert werden soll. Diese 
Werte werden dem Unterprogramm zur Cursorsteuerung 
(Zeile 560 bis 620) übergeben. 


Zeile 150 - 400 

Dies ist das Hauptprogramm, in dem die zuvor ge- 
wählte Anzahl von Versuchen ausgeführt werden kann. Die 
(logische) Variable FLAG erhält den Wahrheitswert -1 
(d.h. wahr), wenn die angezeigte Zufallszahl durch 7 
teilbar ist oder ihre Quersumme 7 ergibt. Ist dieses 
FLAG gesetzt und außerdem die richtige Funktionstaste 
(F1 bzw. F7) gedrückt, so wird der TREFFER-Zähler um 1 
erhöht. 


Zeile 410 - 480 
Hier erfolgt die Abfrage, ob das Spiel fortgesetzt 
oder beendet werden soll. 


Zeile 490 - 550 
In diesem Unterprogramm wird der Rahmen (aus 
Grafik-Zeichen) für die angezeigte Zahl ausgegeben. 


Zeile 560 - 620 

Das Unterprogramm führt die Cursorpositionierung 
aus. Die gewünschte Zeile und Spalte wird durch die 
Variablen Z und S angegeben. 
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FlußRdiagramm: Die böse Sieben 


Gesamtzahl der 
Versuche festlegen 


Versuchszahler auf 
Ö Setzen 


Uhr auf Ö setzen 


Bestimme eine gant- 
zahlıge Zufallszahl 
zwischen 1 und 70 


Ausgabe der Zufalls- 
zah 


se Leertaste oder 
‚je nachdem ob 


die Quersumme 7 hat oder 
nic 


Versuchszahler um 
1 erhöhen 


Ausgabe der Versuche- unel 
Trefferzanl sowie der Uhrzeit 


Versuchs> 


19 
28 
3a 
40 
ka) 
60 
78 
88 
78 


REM zu aaaeecerueeieiid DIE BOESE SIEBEN 
PRINTCHR$ (158): REM ZEICHENFARBE (GELB) 


PRINT"T": REM BILDSCHIRM LDOESCHEN 

PRINT TAB(11)"3 DIE BOESE SIEBEN " 

PRINT:PRINT:PRINT" ICH ZEIGE EINE ZUFALLSZAHL ZWISCHEN" 
FRINT" 1 UND 78 AN." 

FRINT:PRINT" WENN DIESE ZAHL DURCH 7 TEILBAR IST" 
PRINT" ODER IHRE QUERSUMME 7 ERGIBT, MUSS" 

FRINT" DIE FUNKTIONSTASTE F7 GEDRUECKT" 


108 PRINT" WERDEN, ANSONSTEN DIE FUNKTIONS-" 

118 PRINT" TASTE Fi!" 

126 PRINT:PRINT" ... UND ZWAR MOESLICHST SCHNELL!" 
158 PRINT: PRINT: PRINT: INPUT" WIEVIELE VERSUCHE" 53V 
146 Z=24: 5=@: GOSUB 560:PRINT" <ZUM STARTEN: TASTE DRUECKEN! >"3 
158 GET A$: IF A$="" THEN 150 

168 FRINTCHR$ (5): REM ZEICHENFARBE (WEISS) 

178 PRINT"I": REM BILDSCHIRM LOESCHEN 

180 TREFFER=®: TI$="800000" 

198 FOKE 53281,2: REM  HINTERGRUNDFARBE 

208 FOR N=6 TO V 

218 PRINT"@": PRINT"VERSUCHE", "TREFFER", "ZEIT" 

22% PRINT: PRINT N, TREFFER, TI$ 

228 X=INT{RND (1)*76) +1 

248 X$=5TR$ (X) 

250 FLAG=# 

269 GOSUB 498 

278 Z=1®: S=21: GOSUB 566: PRINT X 

288 Z=12: 5=21: GOSUB 566 

298 GET A$:PRINT"S":PRINT:PRINT:PRINT,,TI$: IF A$="" THEN 296 
308 IF A$<>CHR$(133) AND A$<>CHR$(136) THEN 290 

318 IF X/7=INT(X/7) THEN FLAB=-1: GOTO 388 

320 09=0 
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FOR L=1 TO LEN(X$) 

BS=9S+VAL (MID$ (X$,L,1)) 

NEXT L 

IF 85 >= 1@ THEN X$=STR$(05): GOTO 320 

IF 05=7 THEN FLAG=-1 

IF FLAG AND A$=CHR$(136) THEN TREFFER=TREFFER+1 

IF NOT FLAG AND A$=CHR$(133) THEN TREFFER=TREFFER+1 
NEXT N 

Ag="" 

PRINT" KIEISIRITEIISIKIIR] WEITER? (J/N): "5 

GET A$ 

IF A$="J" THEN GOTO 130 

IF A$="" THEN 430 

FOKE 53281,6: REM HINTERGRUNDFARBE 
PRINT"I1"5CHR$ (154) 

END 

REN ae nee seen “uurunannnenn RAHMEN 
7=8: S=2@: GOSUB 560: PRINT"eeesse" 

Z=9: GOSUB 568: PRINT"= ®" 

Z=10: GOSUB 569: PRINT" «" 

Z=11: GOSUB 569: PRINT"« «" 

Z=12: GOSUB 569: PRINT"#eesse" 

RETURN 

REN ee reee CURSORSTEUERUNG 
REM Z=ZEILE, S=SPALTE 

VT=1024+40*Z: REM VERTIKALER TAB. 

POKE 209, VT AND 255 

POKE 218, VT/256 

POKE 211,5 

RETURN 


READY. 


128 


Autorennen 


Sicherlich haben Sie schon öfter festgestellt, daß 
sich BASIC nicht gerade zu Geschwindigkeitsrekorden 
eignet: so sollten Sie auch hier nun kein allzu heißes 
Action-Spiel erwarten, wie es eben nur in Maschinen- 
sprache möglich ist. Immerhin reicht die Geschwindig- 
keit von BASIC aber noch für ein einigermaßen passables 
Geschicklichkeitsspiel, das zudem den Vorteil hat, daß 
es sehr kurz und übersichtlich ist und somit auch 
leicht geändert und erweitert werden kann. 
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Programmbeschreibung 


Zeile 10 - 150 


Hier wird erläutert, wie das Programm zu bedienen 
ist. 

Zeile 160 - 180 

Durch die Angabe der Straßenbreite wird der 
Schwierigkeitsgrad des Spiels bestimmt. Die Rundenzahl 


legt die Spiellange fest. 


Zeile 190 - 240 

In den Zeilen von 190 bis 220 wird ein String zur 
Darstellung einer "Zeile" der Straße erzeugt. Das 
Unterprogramm von Zeile 750 bis 850 liest die Daten für 
das Motorgeräusch ein. 


Zeile 250 - 320 
Der Kurvenverlauf der Straße wird hier durch eine 
Sinusfunktion festgelegt. 


Zeile 330 - 380 
Zum Starten muß die Funktionstaste FI gedrückt 
werden. Die Uhr wird auf Null gesetzt. 


Zeile 390 - 420 


Solange das Auto fährt, ist die Rahmenfarbe grün 
(beim Anhalten wird sie rot, s. Zeile 630). Nach dem 
Einschalten der Repeat-Funktion für alle Tasten kann 
man einfach durch Festhalten des "Brems-'" bzw. "Gas- 


pedals" (d.h. Taste "1" bzw. "2") die Geschwindigkeit 
verändern. 


Zeile 430 - 450 

Eine "Runde" entspricht 30 Bildschirmzeilen, in 
denen jeweils mit der in dem Feld S% gespeicherten 
Tabulatorposition der String zur Darstellung einer 
Straßen-"Zeile" (S$) ausgegeben wird (Zeile 450). 


Zeile 460 - 470 
Das "Auto" wird an der vorigen Position gelöscht. 


Zeile 480 - 560 

In den Zeilen von 480 bis 530 wird abgefragt, 
welche Taste zur Steuerung des Autos gedrückt wurde. P 
ist ein Zähler für die Verzögerung zur Geschwindig- 
keitsregelung, AP wird für die Autopositionierung 
verwendet. 
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Zeile 570 - 590 
Hier wird das Auto an seiner neuen Position dar- 
gestellt. 


Zeile 600 - 740 

Hier erfolgt die Geschwindigkeitsregelung. Beim 
Anhalten wird die Rahmenfarbe auf "rot" umgeschaltet, 
bei der Weiterfahrt wieder auf grün. 


Zeile 750 - 850 
Unterprogramm zur Erzeugung des Motorgeräusches. 


Zeile 860 - 960 

Bei Beendigung des Spiels (jederzeit mit "E" mög- 
lich) erfolgt hier die Ausgabe der Rundenzahl, Zeit 
USW. 
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Flußdiagramm :: Autorennen 


Eingabe der Straßen - 
breite und der Run - 
denzahl 


Straßenverlauf fest- 
legen (z.B. durch Sınus- 
Funktion 


Uhr auf ® setzen 


Zeılen weise Avsga be 
des Straßenverlaufs 


Eıngabe zur Aufosteverung 


(Unks , rechts, Langsamer, 


schneller ) 


Auto entsprechend der 
Eingabe stevern 


Runde 
beendet 
L 


Rundenzäahler um 
4 erhöhen 


gebene Run: 
denzahl erreicht 


! 


Ausgabe: Rundenzah 
Zat, Straßenbreite 


Ja 


18 REM „unonsennunnusennuunen. Bonn nuueunnenuunnennne AUTORENNEN 


28 PRINT" 3 AUTORENNEN = 
38 DIM 5%4(180): REM STRASSENVERLAUF 
48 REM. -sonnuunennnun onen neuen nn nen uununnanennen SPIELERKLAERUNG 


58 PRINT: PRINT: PRINT" DAS AUTO WIRD MIT DEN LURSOR-TASTEN" 
&8 PRINT" "PFEIL AB’ NACH LINKSC!) UND --> NACH" 
78 PRINT” RECHTS GESTEUERT." 
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PRINT: PRINT" GEBREMST WIRD MIT DER TASTE °1” UND" 


98 PRINT" BESCHLEUNIGT MIT DER TASTE ’2°." 


108 
i1l® 
120 
158 
140 
150 
160 
178 
180 
1978 
280 
210 
22 

230 
249 
250 
268 
270 
280 
298 
305 
318 
>20 
330 
>48 


PRINT: PRINT" AUSSER DER GESCHWINDIGKEIT WERDEN DIE" 
PRINT" MINUSPUNKTE ANGEZEIGT, DIE MAN ERHAELT, " 
PRINT"T] WENN MAN VON DER STRASSE ABKOMMT. " 

PRINT: PRINT" DURCH EINGABE VON °E’ KANN DIE FAHRT" 
PRINT" BEENDET WERDEN. " 

PRINT: PRINT 

INPUT" STRASSENBREITE: (5-25):"35B 

IF (SB < 5 OR SB > 25) THEN 168 

INPUT" WIEVIELE RUNDEN: "5NN 

FOR I=1 TO SB 

= 

NEXT I 

S$ = "ar+ 56 + "a" 

PRINT: PRINT: PRINT" BITTE FERTIGMACHEN ZUM START! ..." 
GOSUB 750: REM MOTOR STARTKLAR MACHEN 

EN ee DARSTELLUNG DER STRASSE 
AL=2: REM AUTOLAENGE BZW. -BREITE 

AP=1@+5B/2: REM AUTOPOSITION 

1=0 

FOR T=1 TO 30 

I=I+.1 

SAT) = INT(SIN{ID)*10+.5) 

NEXT T 

PRINT "a" 

FOR I=1 TO 22: PRINT: NEXT I 


134 


| 
rer 4 
>> © 


493 
Ga 98 © 


PRINT" --> START: TASTE "Fi" DRUECKEN!":S 

GET F$: IF F$ <> CHR$(135) THEN 369 

T1$="880080": REM UHR AUF NULL 

PRINT"!.T" 

REM. sans sn un AUTD-STEUERUNG 
POKE 5352880,5: REM RAHMENFARBE GRUEN 

POKE 650,128: REM REPEATFUNKTION FUER ALLE TASTEN EIN 
P=8: REM GESCHWINDIGKEITSZAEHLER 

FOR N=1 TO NN: REM RUNDENZAEHLER 

FOR T=1 TO 38 

PRINT TABISACTY)5S$ 

“=1564+AP 

POKE K,32: FOKE K+1,32: REM VORIGES AUTO LDESCHEN 
GET X$: REM TASTATURABFRAGE 

IF X$="E" THEN 869 

IF X$="i1" THEN P=P+l: GOTO 546: REM LANGSAMER 

IF X$="2" THEN P=P-1: G0T0 546: REM SCHNELLER 

IF X$=CHR$ (17) THEN AP=AF-1: GOTO 548: REM NACH LINKS 
IF X$=CHR$ (29) THEN AFP=AP+1: REM NACH RECHTS 

IF (AP <= SAMT OR AP >= (SATTI+SB-AL)) THEN PZ=PZ-i 
IF AP < 1 THEN AP=1: G0T0O 570 

IF AP > 37 THEN AP=S9 

K=1344+AP 

POKE K,192: POKE K+1,1@2: REM AUTO 

FOKE K+54272,14: FOKE K+1+54272,14 

REM sasansennunonan sen san nenne GESCHWINDIGKEITSREGELUNG 
IFPX< 8 THENF = 6: GOTO 728 

IF P <= 15 THEN PE = PxP: GOTO 6898 

POKE 53286,2: REM RÄAHMENFARBE ROT 

PRINT CHR&(19)5" --> WEITER MIT "Fi? !" 

GET F$: IF F$S>CHR$(135) THEN 656 

FOR I=1 TO 24: PRINT: NEXT I 

POKE 53288,5: REM RAHMENFARBE GRUEN 
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689 P=ü: PE=O 

695 POKE SI+24,31-P 

768 FOR PAUSE= 1 TO PE 

718 NEXT PAUSE 

725 NEXT T 

738 NEXT N 

733 GOTO 868 

758 REM. ..... BEE UREEE EINER TRRNERSRS PR: MOTORGERAEUSCH 
768 S1=54272: REM ANFANGSADRESSE DES MUSIK-CHIPS (SID) 
778 FÜR J=6 TO 24 

780 READ X: POKE SI+J,X 

790 NEXT J 

898 DATA 9,2,0,3,0, 0,240 

816 DATA 12,2,0,4,0,0,192 

829 DATA 16,2,0,6,0,0,64 

82@ DATA #,39,242,8: REM FILTER 

846 POKE SI+4,65: POKE S1+11,65: POKE SI+18,65 

85@ RETURN 

BER REN Eee enmerseerdee (ENDE 
878 POKE 5I+24,6: REM TON ABSCHALTEN 

886 POKE 53728%,14: REM RAHMEN HELLBLAU 

898 POKE 658,6: REM REPEATFUNKTION FUER ALLE TASTEN AUS 
938 FOR I=1 TO 46: PRINT CHR${184)5: NEXT I 

918 PRINT: PRINT" RUNDENZAHL: "SNN 

926 PRINT: PRINT" FEHLERPUNKTE: "3PZ 

938 PRINT: PRINT" STRASSENBREITE: ":SB 

948 PRINT: PRINT" ZEIT (HHMMSS): "5TI$ 

950 FOR FAUSE=1 TO 1880: NEXT PAUSE 

968 END 


READY. 
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Verkaufsspiel 


Als Anregung für ein Spiel, das der Leser nach 
seinen Vorstellungen und Wünschen ausbauen kann, dient 
ein Verkaufsspiel. In unserem Falle wird man durch 


einen Erbfall stolzer Besitzer eines Bratwurststandes, 
der durch vernünftiges Management zu einer soliden 


Erwerbsquelle werden sollte. Als Existenzgrundlagen 
sind eine gewisse Anzahl Würste, Brötchen und sogar ein 
Eimer Senf vererbt worden. Ihre Aufgabe besteht darin, 


die Würstchen zu einem vernünftigen Preis zu verkaufen 
und jeden Tag Ihre Vorräte nach Bedarf aufzufrischen. 
Da der Verkaufsstand jedoch im Freien aufgestellt wer- 
den muß, sind die Verkaufsergebnisse u.a. natürlich vom 
Wetter abhängig. 


Am Abend eines jeden Tages sehen Sie sich also die 
Wettervorhersage für den nächsten Tag an, um ungefähr 
abschätzen zu können, mit wievielen Kunden Sie rechnen 
müssen. Dann werfen Sie einen Blick auf Ihren Bestand 
an Vorräten und auf das vorhandene Kapital und geben 
bei Ihrem Lieferanten unter Berücksichtigung der 
Preise, die Sie zahlen müssen, Ihre Bestellung für den 
folgenden Tag auf. Außerdem setzen Sie noch den Ver- 
kaufspreis fest. Am nächsten Morgen bringt Ihnen Ihr 
Lieferant die gewünschten Mengen zu Ihrem Verkaufsstand 
(...oder auch nicht, aber dieses gehört zu den besonde- 
ren Ereignissen !). | 


Das Programm ist so aufgebaut, daß alle zur "Er- 
schwerung"' beitragenden "Ereignisse" des Unternehmens 
in einzelnen Unterprogrammen wiederzufinden sind. Damit 
lassen sich die vorgegebenen Einflüsse auf den Ver- 
kaufserfolg leicht abwandeln und/oder erweitern. 


Die vorgestellte Form soll als Anregung dienen, 
die beliebig geändert werden kann. Zur Vereinfachung 
sind die wichtigsten Variablen in einer Liste aufge- 
führt. Die jeweiligen Unterprogramme sind durch zahl- 
reiche REM-Zeilen gekennzeichnet. Zum besseren Über- 
blick wird das Programm in größeren Abschnitten er- 
läutert. 
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W% 


' 


VP 


K%, 


BK%, 


EIN, 


Variablenliste 


B%, 5% 


’ 


KM, KQ 


SK% 


EM, EQ 


am Verkaufstag vorhandene Würste/Bröt- 
chen/Portionen Senf 


bestellte Würste/Brötchen 
Restbestand Würste 1./2./3. Tag (nicht 
verkaufte Würste sind nach drei Tagen 


verdorben) 


Restbestand der von Vortagen insgesamt 
übriggebliebenen Würste 


verdorbene Würste 
Einkaufspreis in DM pro Wurst /Brötchen 


Senf bestellt (= 1) bzw. nicht bestellt 
(= 0) 


unvorhergesehene Ausgaben 


Verkaufspreis pro Portion (= 1 Wurst +1 
Brötchen + 1x Senf) 


verkaufte Portionen (bzw. Zahl der Kun- 
den) pro Tag/Monat/Quartal 


Anzahl Kunden, die nicht kauften, weil 
Brötchen/Senf fehlte 


Einnahmen pro Tag/Monat/Quartal 
Ausgaben a " 4 n 
Gewinn " " N i 
Kapital 


Wettervorhersage/Korrektur des Wetterbe- 
richts auf aktuelles Wetter 


besondere Ereignisse 


Wochentag 
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Programmbeschreibung 


Zeile 20 — 30 
Zuweisung der Wochentagsbezeichnungen. 


Zeile 40 
Sprung in das Unterprogramm zur Ausgabe des Bildes 
am Beginn des Spieles. 


Zeile 60 - 240 
Spielerklarung und Ausgabe der Anfangssituation. 


Zeile 250 - 290 
Abfrage des Spielernamens und Angabe, ob das Bild 
weiter gezeigt werden soll. 


Zeile 310 - 370 

Die Ausgangssituation wird festgelegt. (In der 
Variablenliste sind alle wichtigen Variablen erläau- 
tertz) 


Zeile 380 
Sprung in das Unterprogramm zur Festlegung des 
Wetters. 


Zeile 390 
Verzweigung in das Unterprogramm zur Spielerein- 
gabe. 


Zeile 410 —- 430 
Verzweigungen zum Programmende, Ausgabe der Mo- 
natsbilanz bzw. Darstellung des Bildes. 


Zeile 460 -— 510 
Ausgabe des tatsächlichen Wetters im Vergleich zum 
Wetterbericht. 


Zeile 520 - 800 


Berechnung der Käuferzahl und Sprung in das Unter- 
programm zur Tagesabrechnung (Zeile 780). 


140 


Zeile 830 - 910 

Durch eine Zufallszahl wird die Wettervorhersage 
für den nächsten Tag bestimmt (Zeile 850), in die 
Unterprogramme zur Textausgabe verzweigt (Zeile 870) 
und anschließend wiederum durch eine Zufallszahl eine 
Abweichung des tatsächlichen Wetters von der Vorhersage 
festgelegt (Zeile 880). 


Zeile 920 - 950 

Anordnung des tatsächlichen Wetters in der Reihen- 
folge, wieviele Kunden zu erwarten sind. (Je schlechter 
das Wetter ist, desto weniger Kunden kommen, aber auch 
an sehr warmen Tagen sind die Absatzmöglichkeiten für 
Bratwurst gering). 


Zeile 1000 - 1140 
Textausgaben für Wettervorhersagen. 


Zeile 1160 - 1410 


Bestellungen für den nächsten Verkaufstag. Die 
Einkaufspreise für Würste und Brötchen werden zufällig 
festgelegt (Zeilen 1190 - 1250). Nach Angabe der be- 
stellten Menge wird überprüft, ob genug Kapital zur 


Bezahlung vorhanden ist (Zeile 1360 - 1400). 


Zeile 1410 - 1540 

Angabe des Verkaufspreises, der innerhalb von 
festgelegten Grenzen bleiben muß (Zeile 1490 - 1520), 
und Berechnung der am Verkaufstag vorhandenen Mengen an 
würsten, Brötchen, Senf (Zeile 1530). 


Zeile 1550 - 2050 
Berechnung der Tagesbilanz. 


Zeile 2060 - 2330 
Grafikausgabe des Verkaufsstandes. 


Zeile 2340 - 2390 
Durch Zufallsauswahl werden besondere Ereignisse 
bestimmt. 


Zeile 2400 - 2720 

Durch die REM-Zeilen sind alle besonderen Ereig- 
nisse gekennzeichnet. Je nach Ereignis wird z.B. die 
Kauferzahl, die Höhe der Einnahmen oder Ausgaben oder 
der Kapitalbestand beeinflußt. 
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Zeile 2730 - 3110 
Textausgabe zu den besonderen Ereignissen. 


Zeile 3120 - 3370 
Monatsabrechnung. 


Zeile 3380 —- 3720 
Spielende: Abschlußabrechnung und Schlußkommentar. 


DIENSTAG 
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Flußdiagramm:Verkaufsspiel 


zufällige Auswah 


des Einka reises 
Be testlegung 
des Bestands 


Eingabe der Bestel- 
lungen für nächsten 
ag 


Eingabe des Verkaufßf Tag - Tag +1 
preıses 
& > 


= 


Ausgabe Kauferzahl des 
Vortages, Einnahmen, 
Ausgaben, Bestano 


Zufällige Auswah 


eines WetHterbe- 
richts 


REM..uunononnuuseueeno sun nun nueneu nu ne nun. WUERSTCHENSTAND 
T$t1)="DIENSTAG": T$ (2) ="MITTWOCH" : T$ (3) ="DONNERSTAG" 
T$ (4)="FREITAG":T$ (5) ="SAMSTAG": T$ (6) ="SONNTAG" 
AN=B: GOSUB 2068 

POKE 53281,6: POKE 53280,14 

PRINT"IN 3 WUERSTCHENSTAND > 

PRINT: PRINT" SIE HABEN VON EINEM ENTFERNTEN VER-" 

PRINT" WANDTEN, DER IHREN GESCHAEFTSSINN" 

PRINT" SCHAETZT, EINE WUERSTCHENBUDE IM STADT-” 
PRINT"”T] PARK GEERBT UND WOLLEN DIESE AUCH" 
PRINT" WEITERFUEHREN. " 

PRINT"E} EINE GRUNDAUSSTATTUNG VON 188 BRAT-" 
PRINT" WUERSTEN, 188 BROETCHEN UND 1 EIMER" 
PRINT" SENF GEHDERT EBENFALLS ZUR ERBMASSE." 
PRINT"®! SIE PLANEN JEWEILS ABENDS FUER DEN" 
PRINT" NAECHSTEN TAG.” 

PRINT" VOM WETTER IST ES ABHAENGIG, WIEVIELE” 
PRINT" KUNDEN KOMMEN — AM WOCHENENDE SIND ES" 
PRINT" ERFAHRUNGSGEMAESS MEHR -, IHRE EIN-" 
PRINT" KAUFSPREISE FUER WUERSTE UND BROETCHEN" 
PRINT" SIND VARIABEL, ABER DAFUER KOENNEN SIE” 
PRINT" DEN VERKAUFSPREIS SELBST BESTIMMEN." 
PRINT:PRINTTAB(18)5" {WEITER -> TASTE)"; 

GET Z$: IF Z$="" THEN GDTO 246 

PRINT" Tetateleie[eieistel" 

PRINT" WOLLEN SIE AUCH WEITER DAS BILD" 

INPUT" SEHEN (J/N";BI$ 

IF BI$="N" THEN GOTO 308 

INPUT" WIE HEISSEN SIE"5VN$ 

PRINT".T’5 

W4=100: BA=108: 5%4=300: TX=®: AN=1:MO=1 
TA=TA+1:T%4=T%+1: IF T/%=7 THEN T%A=1: TA=TA+1 

IF MO=4 THEN GOTO 818 
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>40 POKE 53281,6: POKE 53280, 14 

3560 RT=T%: IF RT>3 THEN RT=RT-3 

368 RZ=RAUDI+HRAIDIHRA CHI -RALRTI 

378 IF AN=1 THEN R%=106 

308 GOSUB 839 

>76 GOSUB 1159 

488 IF TA>=30 THEN GOSUB 3120: TA=1: MO=MO+1 

418 IF MO=4 THEN GOTO 820 

420 IF BI$="N" THEN GOTO 450 

430 GUOSUB 2068 

440 FOR I=1 TO 1006: NEXT I 

4590 POKE 53281,6: POKE 532890, 14 

46@ IF Wk=-1 THEN W$=" DAS WETTER WAR LEIDER SCHLECHTER ALS S: 
478 IF WK=-1 THEN W$=W$+" VORHERGESAGT. " 

488 IF WK=1 THEN W$=" DAS WETTER WAR BESSER ALS VORHERGESAGT." 
490 IF WK=0 THEN W$=" DIE WETTERVORHERSAGE WAR GENAU RICHTIG!" 
368 PRINT" MONAT"5MO5"TAG"3 TA 

318 PRINT: PRINT W$ 

328 KZ=INTÜIRND(1)%*31)+ (WBA-1)*30) 

3350 IF VMA=1 AND BE%/=7 AND WB%>3 THEN K%=3.5%K%: GOTO 570 
346 IF VM%=1 AND BE%=7 AND WBA=3 THEN K%4=3#K%: GOTO 570 
336 IF T4=5 OR T%4=64 THEN KA=2%#K% 

2368 E4=0: BEA=0: GOSUB 2540 

378 AB%=0: IF VP<i=2.5 THEN GOTD 526 

380 IF VP<=3 THEN ABA=K%/6: GOTD61® 

376 IF VPX=3.5 THEN ABA=K%/3: GOT0619 

628 IF VPi=4 THEN ABA=K%A/2 

618 KA=KA-AB% 

620 BKA=0: SKA=8 

630 IF KA>WA THEN KA=W% 

648 IF 5%X=B%A THEN MIN=S%X: MAX=B% 

656 IF BA<XS5% THEN MIN=BA: MAX=S% 

666 IF KA<=MIN THEN GOTO 740 

678 DI=K%A-MIN 
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688 
690 
788 
718 
720 
730 
748 
750 
768 
770 
788 
798 
809 
818 
820 
830 
848 
850 
868 
870 
888 
370 
708 
9198 
920 
730 
948 
950 
968 
770 
988 
978 


IF MIN=B£ THEN KX=MIN+.85%DI: BK%X=.15%DI 
IF MIN=SX THEN KX=MIN+.75%DI: SK%X=.25%D]1 
IF KA<=MAX THEN GOTD 748 

DI=KZ-MAX 

IF MAX=BX THEN K%X=MAX+.85%DI: BK%=.15%#DI 
IF MAX=5% THEN K%=MAX+.75%DI: SKZ=.25%DI 
PRINT: FRINT" SIE KONNTEN INSGESAMT" 5K%A5 "PORTIDNEN“® 
PRINT" WURST VERKAUFEN. " 

PRINT 

KM=KM+K% 

GOSUB 1559 

GET Z$: IF Z$="" THEN GOTO 790 

AN=AN+1: GOTD 320 


REM.uososenonuner enuununuenreuuunenensenseuueuennnn nn nn ENDE 
GOSUB 3380: END 

REM. “ounuununnnonee nun en n un unsunnnen un nn WB%A: WETTERBERICHT 
PRINT" =IeIateleim" 


WBA=INT{RND(1)%*6) +1 

PRINT: PRINT" DER WETTERBERICHT FUER "5T$(TX)5"2"5= PRINT 
DN WBX GDSUB 1000, 1040, 1070,1090,1110, 1130 
WK=INT (RND (1) *3) 1 

IF WBA=1 AND WK=-1 THEN WK=® 

IF WBA=& AND WK=1 THEN WK=@ 

WBA=WBA+WK: IF WBA=0 THEN WBA=1 

REM.osunauasnasosununnn „nunnennn. . ÜMRECHNUNG FUER KAEUFERZAHL 
IF WBA=6& THEN WBA=4: GOTO 968 

IF WBX=4 THEN WBA=5: GOTD 968 

IF WBA=5 THEN WBA=6 

IF BEX<{>7 OR VMA<>2 THEN GOTO 9978 

PRINT:PRINT" AUSSERDEM IST MORGEN BEI GUTEM WETTER" 
PRINT" EIN FREILUFTKONZERT GEPLANT." VMA=1 

RETURN 
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1868 PRINT" FUER DIE JAHRESZEIT ZU KALT," 

1818 PRINT" STUERMISCH UND MIT LANGANHALTENDEN" 
1028 PRINT" NIEDERSCHLAEGEN. " 

1858 RETURN 

1848 PRINT" BEWDELKT MIT VEREINZELTEN NIEDER-" 
1850 PRINT" SCHLAEGEN. " 

1068 RETURN 

16878 PRINT" BEWOELKT, ABER TROCKEN. * 

1080 RETURN 

1898 PRINT" HEITER BIS WOLKIG, OHNE NIEDERSCHLAEGE. " 
1180 RETURN 

1118 PRINT" SONNIG, TROCKEN, ANGENEHM WARM.” 


1128 RETURN 

113@ PRINT" DURCHGEHEND SONNIG, ABER SEHR HEISS." 

11480 RETURN 

1150 REM. „uusuenunnensenune anaeues Eunesurnnnnnene „ SPIELERABFRAGE 


1168 IF AN=1 THEN GDTO 1410 

1178 PRINT: PRINT 

11860 PRINT" GEBEN SIE JETZT IHRE BESTELLUNGEN AUF.” 
1198 E1=INT(RND(1)%#161) +50 

1208 Ei1=E1/18® 

1218 E2=INT(RND(1)*16) +15 

1228 E2=E2/100 

1250 E2$="@"+RIGHT$ (STR$(E2),3) 

1248 IF Ei>=1 THEN E1$=RIGHT$(STR$(E1),4): GOTDO 1269 
1250 E1$="0"+RIGHT$(STR$(E1),3) 

1268 PRINT" DIE TAGESPREISE SIND: " 

127@ PRINT" 1 WURST: ";E1$5" DM" 

1280 PRINT" 1 BROETCHEN: ";E2$5" DM" 

1290 WM=0: PRINT" WIEVIELE WUERSTE BRAUCHEN SIE NOCH" 
1388 FRINT" FUER MORGEN INBRBBI";: INPUT WM 

1310 BM=@: INPUT" WIEVIELE BROETCHEN INBRBBI" ; BM 
1328 PRINT" SENF (388 PORTIONEN/17.50 DM J/N 1m"; 
15350 5$="": INPUT 5$ 
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IF S$<>"J"AND (5$<>"N”" AND 5$<>"") THEN PRINT"’Y'5:G0TD 1320 


E3=8: IF S$="J" THEN E35=1 


KD=9: IF WM#&EI+BM&EZ+ES#17.5 > KA THEN KD=1 


IF KD=® THEN GOTO 1416 


FRINT=PRINT" SO VIEL GELD HABEN SIE NICHT," 


PRINT" BITTE NEU KALKULIEREN. " 
FRINT"/TITTIT 5: GOTO 1380 


u... VERKAUFSPREIS 


FRINT:PRINT" ZU WELCHEM PREIS (1.8080 - 4.00 DM)” 


PRINT" WOLLEN SIE EINE PORTION WURST (MIT" 


PRINT" BROETCHEN UND SENF) VERKAUFEN"; 
VP$="":VP=8: INPUT" INUNRRI"; VPS 
IF VP$<>"" THEN VP=ASC (VP$) 


IF VF$="" DR VP<46 DR VP>S7THEN PRINT"7T"5:6OT01449 


VF=VAL (VP$) 

IF VP>=1 AND VPx=4 THEN GOTO 1530 
PRINT: PRINT" SEIEN SIE VERNUENFTIG":S 
PRINT" UND UEBERLEGEN SIE NOCH MAL!" 
PRINT"/TIT1"5= GOTO 1448 

WA=RA+WM: BA=BA+BM: 5%4=5%+E3#300 

RETURN 


EIN=VPx#K% 
IF BEX=8 THEN EIN=EIN*.6 
AUS=WM#E1+BM#E2+17.S#E3+E4: 6G=EIN-AUS 


u... TAGESBILANZ 


6=INT (6#188+.5) /1002 KA=KA+G: KA=INT (KA#100+.5) /108 


EM=EM+EIN: AM=AM+AUS: GM=bM+6 

IF VMA<>1 OR WBA>2 THEN GOTO 1549 
PRINT” LEIDER IST DAS KONZERT" 

PRINT" WEGEN DES WETTERS AUSGEFALLEN!": 
IF BEXX18 THEN GOSUB 2736 

Bi=Bk-EA: 5%=5%-K% 

IF BA<®@ THEN B4A=® 

IF S%<a THEN 5%=0 

VWi=K%: X=RT-2: IF RT=1 THEN X=2 
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VM%=0: GOTO 1658 


IF RT=Z2 THEN X=3 

Y=RT-1: IF RT=1 THEN Y=3 

Z=RT 

IF VwWA<= RAIN) THEN RZ (XI =SRACX) -VWAE VWA=0 
IF VWA>RZOXDD THEN VWI=SVWA-RA XI: RAN) =B 


IF VWAs= RZ{Y) THEN REIND=SRALY)I -VWA= VWA=0: GOTO 1768 


IF VWZ>RAUY THEN VWA=VWZA-RA CN: RAN =O 

IF AN=1 THEN RA 1) =WA-KA: WA=WA-KZ:GOTO 17970 
RWA=RA(Z) 

RA{ZI=WM-VWA= WA=SRACDI+RA ZI HR (3) 

IF BK4=8 THEN GDTO 1828 

PRINTBK%5 "KUNDEN WOLLTEN KEINE WURST OHNE” 
PRINT" BROETCHEN. " 

IF SK4=8 THEN GOTO 1850 

PFRINTSKA; "KUNDEN WOLLTEN KEINE WURST OHNE" 
PRINT" SENF.” 


PRINT: PRINT" INSGESAMT HABEN SIE #";EINS"N DM 8 EINGE-" 


PRINT" NOMMEN UND 2"; AUS:"I DM EB AUSGEGEBEN. " 
PRINT" DAMIT HABEN SIE HEUTE EINEN"; 

IF G{® THEN PRINT" VERLUST" 

IF 6>=8 THEN PRINT" GEWINN" 

PRINT" VON ="; ABS{G);s"N DM ® ERZIELT. 
IF RWA{=®8 THEN G60TO 1949 

PRINTRWA3 "WUERSTE SIND MORGEN NICHT MEHR" 
FRINT" ZU VERWENDEN. " 

PRINT: PRINT" (WEITER -> TASTE" 

GET Z$: IF Z$="" THEN GOTO 1956 

PRINT" I0"5 TAB (20) 5 "MONAT: "5MO5 "TAG: "5 TA 


PRINT" BESTAND: "=: PRINT: PRINT” KAPITAL: "5KA; "N DME"; 


IF B/<® THEN BZ=® 
IF 54<@ THEN 5%=0 

IF WX<® THEN WZ=0 

PRINTTAB (20) 3 BX5 "BROETCHEN" 

PRINTW43" WUERSTE";TAB (20) 55%5 "PORTIONEN SENF" 
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IF KAS® OR (KA{=.5 AND (WX=B8 OR 5%X=0)) THEN GOTO 3706 


PRINT: PRINT" (WETTERBERICHT -> TASTE)" 
RETURN 


REM.... .-naan 8 u m 8 a aa ss a ya sa a m = = as 2 2 980 8 aaa ss u z a a2 8 


POKE 53288,15: POKE 53281,15 


PRINT"I": IF AN=® THEN GOTD 2108 
PRINT: PRINTT$(T%) 

PRINT TABU DIS "IWF EFFFFFEE FF FFFEFE u 

PRINT TABLE MSBRFZFFFFFFFLFIFEFEEEEG 

FOR I=1 TO 3 

PRINT TAB(1O5 "9a 443 a3 33 aN a3 aNaNaNayye 
NEXT I 

PRINTTABIO "US AS aS3 AS a3 aa ayayayıemn" 
PRINTTAB(IOV "32 333 a3 3 Sa ayNasayayaeı m" 
PRINT TAB{19)5"R | am |" 

PRINT TABUIO 5 L____ am |" 

PRINT TAB{19) 5 "17 am ar" 

PRINT TAB(10)5"=8 auap " 

PRINT TAB(19) 5 "ig n 

PRINT TAB{iO5"iABRATWURST * 

PRINT TAB(19) 5 "üig « 

PRINT TAB(10) 5 


J=1INT(t19-LEN {VN$))/2) 

FOR J1=1T0OJ=:PRINT"EIR "5:2 NEXT Ji 
PRINT"E12" 5 VN$; 

FOR Ji=J+1+LEN (VN$) T019:PRINT"EI3 "5:2 NEXT J1 
PRINT" EI" 

PRINT TAB{10);5 "53 u" 

FOR I=1 TO 20800: NEXT I 

PRINT CHR$ (154) 

RETURN 
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REM Sa a EUREN EAU RLSORTTERRG BESONDERE EREIGNISSE 
BEZ=INT {RND (1)#18) +1 

IF BEX>1® THEN RETURN 

IF BE%X=4 AND (T%=5 OR T%=& OR WB%<3) THEN 60TO 2350 

ON BE% GOSUB 2499, 2449, 2530, 2579, 2600, 2630, 2660, 2679, 2708 
RETURN 


REM. „ououseeseuuunc« ...... .nunseuununnne LIEFERANT FAELLT AUS 
WA=WA-WM: BA=BA-BM: S5%=5%-E35%#508 

WM=0: BM=® 

RETURN 

REM. „oacassnuruneunen ...LIEFERANT BRINGT NICHT VOLLE MENGE 
IF WM<12 AND BMi2 THEN BE4=20: RETURN 


IF WM{12 THEN X=WM:GOTO 2489 

X=INT {RND(1)#(WM-10)) 

IF BM<12 THEN Y=BM: GOTO 2510 

Y=INT(RND(1)*(BM-10)) 

WA=WA-WM+X: BA=BA-BM+Y 

WM=X: BM=Y: GOTO 2520 

RETURN 

REM. ounmunnununnnuneunnesununnansnesunun nenn nun a PLAÄTZREGEN 
IF WBA<3 THEN GOTD 2568 

KA=K%%*.85 

RETURN 

REM. .... Euunenensnunennununnnenn none enuunnn ...... . WEGSPERRE 
KA=® 


REM. „-uuuuusununsunnunnnn unuonuennuneuanenene FUSSBALLSPIEL 
KA=K7%.65 

RETURN 

REM. „ounsunsununuunnnn nen .unuun Eunnsmunusennne . STROMAUSFALL 
W/I=WM: BA=BM: R%A(1)=0: R%A(2)=0: RAC3)=6 

RETURN 

VM%=2: RETURN: REM. „„soeonunone nu... nen FREILUFTKONZERT 
REM. „soon user Deinen nen ee FINANZAMT 
E4=KA®.4 

RETURN 


151 


2790 
2719 
2728 
2730 
2748 
2798 
2768 
2776 
2780 
2790 
280% 
2819 
2820 
2830 
2840 
2858 
2868 
2870 
2880 
2898 
2908 
2918 
2920 
29730 
2940 
2950 
2968 
2970 
2988 
2990 
3008 
5810 


REN users KASSE GEKLAUT 


VP=® 
RETURN 

213, RIEEREBER ENERGIE RE LEE U RONE KOMMENTARE BESONDERE EREIGNISSE 
DN BEZ GOSUB 2768, 2820, 2870, 2988, 2956, 2980, 3920, 3050, 3098 


RETURN 

IF AN=1 THEN GOTD 2819 

FRINT" HR LIEFERANT HATTE EINEN UNFALL UND" 
FRINT" KONNTE SIE NICHT BELIEFERN. IHNEN" 
PRINT" STANDEN NUR DIE RESTE VOM VORTAG ZUR" 
PRINT" VERFUEGUNG. ” 

RETURN 

IF AN=1 THEN GOTD 2869 

PRINT" IHR LIEFERANT KONNTE SIE NICHT IN” 
PRINT" VOLLER HOEHE BELIEFERN. ER BRACHTE" 
PRINT" NUR" X: "WUERSTE UND": Y5 "BROETCHEN. " 
RETURN 

PRINT” EIN AUSGIEBIGER PLATZREGEN VERRINGERTE" 
PRINT" IHRE KUNDSCHAFT BETRAECHTLICH!" 
RETURN 

PRINT" DER WEG, AN DEM SICH IHR STAND" 
PRINT" BEFINDET, WURDE HEUTE NEU GETEERT." 
PRINT" DESHALB HATTEN SIE LEIDER UEBERHAUPT" 
FRINT" KEINE KUNDEN!" 

RETURN 

PRINT" EIN SFANNENDES FUSSBALLSPIEL HAT DIE" 
PRINT" STRASSEN BEINAHE LEERGEFEGT." 

RETURN 

IF AN=i THEN GOTO 3010 

PRINT" UEBER NCHT FIEL DER STROM AUS. IHRE” 
PRINT" GESAMTEN VORRAETE WAREN VERDORBEN!" 
RETURN 
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3078 
30890 
3090 
3188 
311@ 
3129 
3138 
3140 
3150 
3168 
3178 
3188 
3198 
3208 
5218 
3220 
32380 
3240 
3298 
3268 
3270 
3280 
3298 
33508 
3210 
3:30 
3340 
3290 
3368 


3:70 


IF VMX<>1 THEN 60TO 3049 
PRINT" DAS KONZERT FAND WIE VORGESEHEN STATT.": VMA4=0 
RETURN 

IF AN=1 THEN 60T0 3080 

PRINT" DAS FINANZAMT HAT 48% IHRES GELDES" 

PRINT" EINGEZOGEN! " 

RETURN 

PRINT" IN EINEM UNBEWACHTEN MOMENT WURDEN" 

PRINT" DIE TAGESEINNAHMEN GESTOHLEN! " 

RETURN 

2 IE EERANENE ee MONATSABRECHNUNG 
PRINT" GESAMTABRECHNUNG FÜER MONAT"3MO 

PRINT 

PRINT" IN DIESEM MONAT HABEN SIE INSGESAMT" 


PRINTKMS "PORTIONEN WURST VERKAUFT." 
KO=KO+KM 

PRINT" IHRE AUSGABEN BELIEFEN SICH AUF” 
AM=INT (AM#196) /100 

PRINTAM"DM," 

AB=AU+AM 

EM=INT (EM#1988) /106 

FRINT" IHRE EINNAHMEN AUF"SEMS "DM." 
EO=EO+EM 

PRINT" DAMIT HABEN SIE IN DIESEM MONAT" 
PRINT" EINEN"; 

IF GM8 THEN PRINT" VERLUST”; 

IF GM>=6 THEN PRINT" GEWINN”; 
GO=GO+bM: GM=INT (ABS (GM) #190) /108 
PRINT" VON"SGM; "DM ERWIRT-" 

PRINT" SCHAFTET." 

PRINT:PRINT" IHR KAPITAL BETRAEGT NUN" 
PRINTEA5S "DM." 

PRINT:PRINT" (WEITER -> TASTE)” 

KM=0: AM=@: EM=0: GM=6 

GET Z$: IF Z$="" THEN GOTO 3368 
PRINT"7’5:= RETURN 
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3388 REM...... .uussauuusnunnnensn u... . QUARTALSABRECHNUNG UND ENDE 
PRINT"IN IN EINEM ZEITRAUM VON 3 MONATEN" 


33590 
3400 
3410 
3420 
3430 
3440 
34506 
3468 
3470 
3480 
3490 
3580 
5518 
3520 
33350 
3540 
3590 
3968 
3570 
5586 
5370 
3690 
5618 
3620 
3650 
36408 
3659 
3660 
3670 
3680 
3690 
3708 
3710 
3720 


PRINT" 
PRINT" 
PRINT" 
PRINT" 


KONNTEN SIE"5K@5 "WUERSTE VERKAUFEN. " 
DAFUER HATTEN SIE AUSSABEN IN HOEHE" 
VON" ;AQ3 "DM, " 

UND EINNAHMEN IN HOEHE VON";EQ5 "DM. " 


FRINT=:PRINT" INSGESAMT HABEN SIE EINEN"; 


IF G0X8 THEN PRINT” VERLUST” 

IF 68>=8 THEN PRINT" GEWINN” 

GQ=INT (ABS (GB) #100) /100 

PRINT" VON"5605"DM ERZIELT." 

PRINT=PRINT 

IF 60>=2008 THEN G0TO 3580 

PRINT" ALLERDINGS HABEN SIE SICH IN® 

PRINT" DIESER ZEIT WOHL VON DEN NICHT VER-" 
PRINT" KAUFTEN BROETCHEN ERNAEHREN MUESSEN. " 
PRINT" BEVOR SIE ERNSTHAFT DARAN DENKEN," 
PRINT" EINEN BRATWURSTSTAND ZU FUEHREN, ” 
PRINT" UEBEN SIE ERST NOCH MAL!" 

GOTD 3678 

IF 60>=6888 THEN GOTD 3650 

PRINT" OBWOHL SIE WAHRSCHEINLICH KEINE" 
PRINT" RIESIGEN REICHTUEMER ANSAMMELN, " 
PRINT" KOENNEN SIE SICH MIT EINEM BRAT-" 
PRINT" WURSTSTAND DURCHAUS UEBER WASSER" 
PRINT" HALTEN." 

G0TD 5698 

PRINT" IHNEN KANN MAN WIRKLICH NUR EMPFEH-" 
PRINT" LEN:" 

PRINT" ERBEN SIE SO SCHNELL WIE MOEGLICH" 
PRINT" EINEN BRATWURSTSTAND!" 

RETURN 

REM. oooaussonennan Kanu nenn nun nennen nenne nn mn ......PLEITE 
PRINT: PRINT" LEIDER SIND SIE VOELLIG PLEITE." 
END 


READY. 
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BESTAND: MONAT: i TAG: ZE 
KAFITAL: 1454.52 DM 7 BROETCHEN 
7 WUERSTE 42 FORTIONEN SENF 


(WETTERBERICHT -:> TASTE) 

DER WETTERBERICHT FUER MITTWOCH: 
BEWOELET MIT VEREINZELTEN NIEDER- 
SCHLAEGEN. 


GEBEN SIE JETZT IHRE BESTELLUNGEN AUF. 
DIE TAGESFREISE SIND: 

1 WURST: 1.92 DM 

i ERDETCHEN: 8.22 DM 

WIEVIELE WUERSTE BRAUCHEN SIE NOCH 
FÜER MORGEN? 1805 

WIEVIELE EROETCHEN? 188 

SENF (385 FORTIONEN/17.58 DM J/N?T J 


ZU WELCHEM FREIS {1.00 -— 4.06 DM) 


WOLLEN SIE EINE FORTION WURST {MIT 
BRÜETCHEN LIND SENF) VERKAUFEN? 2.95 


MONAT 1 TAG 23 


DAS WETTER WAR LEIDER SCHLECHTER ALS 
VORHERGESAGT. 


SIE KÖNNTEN INSGESAMT 12 FORTIONEN 
WURST VERKÄUFEN. 


UEBER NACHT FIEL DER STROM AUS. IHRE 
GESAMTEN VORRÄETE WAREN VERDOREEN: 


INSGESAMT HABEN SIE 737.65 DM EINGE- 
NOMMEN UND 124 DM AUSGEGEBEN. 

DAMIT HABEN SIE HEUTE EINEN VERLUST 
VON 96.75 DM ERZIELT. 


(WEITER -> TASTE) 
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Missionare und Kannibalen 


Drei Missionare und drei Kannibalen wollen einen 


Fluß überqueren. Das zur Verfügung stehende Boot kann 
jedoch höchstens zwei Personen gleichzeitig tragen. Wie 
muß die Überfahrt erfolgen, wenn auf beiden Seiten des 


Flusses die Zahl der Missionare nicht kleiner werden 
darf als die Zahl der Kannibalen? 


Das vorliegende Programm bietet zwei Möglichkeiten 
zur Lösung dieses Problems an: zum einen können Sie 
selbst versuchen, diese gemischte Reisegruppe ohne 
Verluste ans andere Ufer zu bringen. Der Computer hilft 
Ihnen dabei insofern, als er Sie davor bewahrt, eine 
unzulässige Situation herbeizuführen. Sie können das 
Ausarbeiten des "Touren-Fahrplans" aber auch vollstän- 
dig dem Computer überlassen: in dem Fall wird er ver- 
suchen, einen Lösungsweg zu finden, den Sie sich an- 
schließend vorlegen lassen können. 


Gleichgültig, ob Ihnen oder dem Computer die 
Überfahrt geglückt ist: in beiden Fällen können Sie 
anschließend ein vollständiges Protokoll sämtlicher 
Überfahrtversuche erhalten. Zumindest dann, wenn der 
Computer am Zuge war, liegt Ihnen damit jedoch kaum der 
Plan für die kürzeste mögliche Zahl der Überfahrten 
vor. 


Um nun aus dieser möglichen Lösung, die eventuell 


viele Umwege enthält, die darin enthaltene kürzeste 
mögliche Lösung zu erhalten, können Sie jetzt die Liste 
der Versuche komprimieren lassen. Dies geschieht auf 


folgende Weise: 


Das Protokoll der Überfahrten wird rückwärts nach 
solchen Zwischenstationen durchsucht, die bereits ein- 
mal vorgekommen sind. Führte z.B. der 31. Versuch zur 
Beendigung des Unternehmens, so wird festgestellt, ob 
die Situation beim 30. Versuch bereits einmal im Proto- 
koll notiert ist. Wenn ja, waren die Spielzüge da- 
zwischen offensichtlich überflüssig und können wigno- 
riert werden. Durch systematische Anwendung dieses 
Verfahrens gelangt man schließlich zu der minimalen 
Anzahl von Überfahrten, um alle Personen heil an das 
andere Ufer zu bringen. 


156 


Programmbeschreibung 


Zeile 10 - 120 
Kurze Darstellung des zu lösenden Problens. 


Zeile 130 - 140 

Das Feld S% enthält das Protokoll sämtlicher Über- 
fahrt-Versuche. Dabei steht in S%(*,0) und S%(*,1) die 
Anzahl der Missionare am linken bzw. rechten Ufer, in 
S%(*,2) bzw. S%(*,3) die Anzahl der Kannibalen am lin- 
ken bzw. rechten Ufer. 


Zeile 150 - 200 
Hier erfolgt die Ausgangszuordnung. 


Zeile 210 - 350 

Menue zur Auswahl der Spielmöglichkeiten. Die 
Variablen A, Bund C (Zeile 310) werden zusammen als 
"Flip-Flop"-Schalter verwendet und dienen zur Kenn- 
zeichnung der Uferseite (0 = links, 1 = rechts): die 
Zuweisung C= A +B - C bewirkt, daß C immer zwischen 
den beiden Werten 0 und 1 hin- und hergeschaltet wird. 


Zeile 360 - 920 
In diesem Programmteil versucht der Spieler, die 
Passagiere heil an das andere Ufer zu bringen. 


Zeile 360 - 450 

Ausgabe der augenblicklichen Situation. Wenn alle 
Personen sich am rechten Ufer befinden, ist die Über- 
fahrt gelungen (Zeile 450). 


Zeile 460 - 480 

Der vorige Spielzustand wird notiert, da der nun 
folgende Versuch einer Überfahrt eventuell rückgängig 
gemacht werden muß. 


Zeile 490 - 600 
Hier gibt der Spieler an, welche Personen an das 
andere Ufer gebracht werden sollen. 


zeile 610 - 750 
Hier erfolgt die Überfahrt. 


157 


Zeile 760 - 870 

Es wird überprüft, ob die durch die Überfahrt 
entstandene Situation zulässig ist. Je nachdem, wie 
diese Entscheidung ausfällt, erfolgt darauf eine ent- 
sprechende Reaktion. 


Zeile 880 - 920 

Der neue Spielzug wird protokolliert. Anschließend 
wird auf die andere Uferseite umgeschaltet, und die 
neue Situation wird ausgegeben. 


Zeile 930 —- 1520 

In diesem Programmteil sucht der Computer nach 
einer möglichen Lösung. Dieser Programmteil entspricht 
weitgehend dem vorhergehenden. An Stelle der Spieler- 
eingabe versucht nun jedoch der Computer durch zufäl- 
lige Zugversuche, die Personen wohlbehalten vom linken 
an das rechte Ufer zu bringen. 


Zeile 940 

C muß zu Beginn der Computer-Versuche gleich |] 
(=rechtes Ufer) gesetzt werden, weil diese Variable in 
einer der folgenden Zeilen (1240), die wiederholt 
durchlaufen werden, vor dem nächsten - hier also dem 
ersten - Zugversuch umgeschaltet wird. 


Zeile 950 - 1060 

Ausgabe der augenblicklichen Situation. Der je- 
weils nächste Zugversuch des Computers erfolgt nach der 
Eingabe von RETURN. Auf diese Weise kann man die Ver- 


suche des Computers schrittweise verfolgen. Die Bild- 
schirmausgabe kann jedoch auch durch Eingabe von "A 
abgeschaltet werden, wodurch die Ausführung des Pro- 


gramms erheblich beschleunigt wird. 


Zeile 1070 - 1230 
Der vorige Spielzustand wird protokolliert, der 
zähler für die Überfahrten um Eins erhöht (Zeile 1210). 


Zeile 1240 
Der Seiten-Index wird umgeschaltet (Zeile 1240, 
vgl. 940). 


zeile 1250 - 1280 

Die Variable U gibt an, ob eine oder zwei Personen 
übergesetzt werden sollen. In Zeile 1260 wird betimmt, 
daß zwei Personen übergesetzt werden sollen, wenn sich 
noch alle Personen und das Boot am linken Ufer befin- 
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den, d.h. es wird ein unsinniger Zug verhindert. Dies 
gilt entsprechend für Zeile 1260 und 1270. Diese An- 
weisungen machen das Verhalten des Programms also etwas 
"intelligenter". 


Zeile 1290 - 1300 

Sofern nicht eine der soeben genannten Bedingungen 
erfüllt ist, wird hier per Zufall entschieden, ob eine 
oder zwei Personen übergesetzt werden sollen. 


Zeile 1310 - 1340 

Mit einer Wahrscheinlichkeit von 0.5 wird ent- 
schieden (Zeile 1340), ob ein Missionar oder ein Kanni- 
bale übergesetzt werden soll. Natürlich können Sie mit 
diesem Wert herumexperimentieren, um festzustellen, ob 
sich der Lösungsweg dadurch verändert. 


Zeile 1350 - 1430 

Hier wird ein Missionar übergesetzt, voraus- 
gesetzt, daß sich noch einer an diesem Ufer befindet 
(Zeile 1360). Anschließend wird überprüft, ob die neue 
Situation zulässig ist (Zeile 1400 - 1430). Ist sie es 
nicht, so wird dieser Zug in dem Unterprogramm ab Zeile 
1530 zurückgenommen. 


Zeile 1440 - 1520 
Wie Zeile 1350 - 1430, jedoch für einen Kanni- 
balen. 


Zeile 1530 - 1560 
Unterprogramm zur Rücknahme eines unzulässigen 
Zuges. 


Zeile 1570 - 1770 

Nachdem der Transport (durch den Spieler oder den 
Computer) erfolgreich verlaufen ist, werden hier die 
Spielzüge ausgegeben. Diese können im folgenden kom- 
primiert werden. 


Zeile 1780 - 1910 
Hier werden die Spielzüge komprimiert. 


Zeile 1920 - 2080 
Die komprimierten Spielzüge werden ausgegeben. 
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Flußdiagramm:Missionare und Kannibalen (Spielerlösung) 


Ausgangszuordnung: 
3Mıissıonare und 3 
Kannı balen am Linken 


Ausgabe der aktuellen 
Sitvation 


Personen am 
rech nen Ufer 


Auvsgab e 
der Spiel- 
zuge 


Notieren der Sıtvatıon, 
bevor sie durch den 

nächsten Spielzug veran- 
dert wird, clamıt "ein unzu- 
lassıger Versuch wieder 
zurückgenommen werden 


kann. 


Eingabe des Spieler- 
Zuges 


Gibt 
Spieler auf 
e 


nein 


"Überfahrt "  durch- 
führen 


neve 

Sıtvatıon zu- 

Lässig 
2 


eg im Spiel- Zug zurück- 
proTokolLl 


notieren nehmen 


Flußdiagramm: Missionare und Kannibalen 


(Computerlösung) 


Ausgangszuordnung: 
3 Missionare und 3 
Kannıbalen am Linken 


Ausgabe der 
Spiel züge 


Personen am Ja 


rech Een Ufer 


Notieren der Situation, 
bevor sie durch den nachsten 


damit ein unzuvlLässıger 
i ” ge- 


nommen werden Kann. 


"Überfahrt" 
durchführen 


neve 

Sıtvatıon zu - 

Lässıg 
e 


Zug zurück - 
nehmen 


a 


Zug Im Spielpro- 
tokoll nofieren 


10 
28 
36 
40 
30 
66 
78 
89 
90 


REM. susanne ie MISSIONARE UND KANNIBALEN 
PRINT "IM 2 MISSIONARE UND KANNIBAÄLEN u 
PRINT"Me} 3 MISSIONARE UND = KANNIBALEN WOLLEN” 


PRINT"3} EINEN FLUSS UEBERQBUEREN. DAS ZUR VER-" 
PRINT"! FUEGUNG STEHENDE BOOT KANN HOECHSTENS" 
PRINT"M 2 PERSONEN GLEICHZEITIG TRAGEN." 

PRINT" KM WIE MUSS DAS UEBERQUEREN ERFOLGEN, " 
PRINT" WENN AUF BEIDEN SEITEN DES FLUSSES DIE" 
PRINT"! ZAHL DER MISSIONARE NICHT KLEINER WER-" 


108 PRINT" DEN DARF ALS DIE ZAHL DER KANNIBALEN?" 

118 PRINT"MAIRKWEITER: BELIEBIGE TASTE DRUECKEN>"; 

120 GET F$: IF F$ = "" THEN 126 

130 DIM 5% (1969,23) 

148 REM SPIELZUEGE: M(LINKS), M{RECHTS), K(LINKS), K{RECHTS) 


150 


REM ..uauuouunnoou nun au un aunenenunnann nn nn AUSGANGSPOSITION 


168 M(®)=3: M(1)=9: REM ... MISSIONARE AM LINKEN/RECHTEN UFER 
178 K(®)=3: K{1)=®: REM ... KANNIBALEN AM LINKEN/RECHTEN UFER 
189 5%(0,0)=Mi8): 5729, 1)=M(1)} 

198 57219, 2)=K(0): S%(0,3)=K(1) 

208 Z=M(@)+M{1)+K(@)+Kl1)z REM ... GESAMTZAHL DER PERSONEN 


218 REM.„esun0s0. Danunnnarae er uunan ana nen nenn anne 


222 PRINT "Te a MISSIDNARE UND KANNIBALEN > 
250 PRINT"HM MOECHTEN SIE ES „.." 

248 FRINT" Fee SIELBST VERSUCHEN ODER SOLL DER": PRINT 
250 PRINT” EC)IOMPUTER DIE LOESUNG FINDEN?": PRINT 

268 PRINT: PRINT" ENDE": PRINT 

278 PRINT: PRINT TAB(S)5 

2806 GET A$: IF A$ = "" THEN 288 

298 N = 8: REM SPIELZUGZAEHLER 


seQ V 


8: REM VERSUCHEZAEHLER 


s318A=98: B= 1: REM DIENEN ZUSAMMEN MIT C ALS ”’FLIPFLOP” 
s28 IF A$ = "5" THEN GOTD 368 

330 IF A$ = "C" THEN GOTO 9739 

s40 IF A$ <> "E" THEN GOTO 278 


330 


END 
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366 
378 
388 
399 
400 
419 
420 
430 
449 
450 
469 
470 
480 
490 
598 
518 
520 
530 
548 
550 
560 
578 
586 
590 
668 
618 
626 
630 
648 
650 
668 
670 
688 
690 
700 


REM asian SPIELER SUCHT DIE LOESUNG 
C = ®: REM BOOT AM LINKEN UFER 
FRINT "IM 3 MISSIONARE UND KANNIBALEN ” 


PRINT "W"3N5"il. UEBERFAHRT: " 

PRINT" SO SIEHT ES IM AUGENBLICK AUS: " 

PRINT" LINKES UFER=","RECHTES UFER: " 

PRINT" --—— DE EN ENEERE, "2 PRINT 

PRINT M{®)5 TAB(4) "MISSIONAR(E)",Mt1)5 TAB(28) "MISSIONAR(E)" 
PRINT K(@)3 TAB(4) "KANNIBALE (N) ",Kt1)5 TAB(26) "KANNIBALE (N) " 
IF Mil) + Ki) = Z THEN 1570 

5 2 EN EEE AREN EEE EREER VORIGEN ZUSTAND NOTIEREN 
MV(C) = MD): MViA+B-C) = M(A+B-C) 

KVIC) = KiC): KV{AHB-C) = KIA+B-O) 

= PREISER PIUEIIEIe EEE UUIRIIERTROURAHERUNENFENETRORIETEORRR. EINGABE 
PRINT"MIHIstnIIeIsi] (M = MISSIONAR, K = KANNIBALE, " 

PRINT" MK = MISSIONAR UND KANNIBALE USW.) " 

PRINT" ZURUECK ZUM MENUE" 

G0TO 550 

PRINT" *** FALSCHE EINGABE!" 

PRINT CHR$(19): FOR I=1 TO 8: PRINT"M": NEXT I 

PRINT TAB(19%C) 3: INPUT"->":P$ 

IF P$ = "Z" THEN CLR: G0TO 130 

IF (P$<>"M" AND P$<>"K" AND P$<>"MM") THEN 680 

GOTO 620 

IF (P$<>"KK" AND P$<>"MK" AND P$<C>"KM") THEN 540 

3 ASPECT NEE HERE EHREINENERIERRRERE UEBERFAHRT 
KD=0: IF P$="M" AND M(C)>O THEN KD=1 

IF KD=1 THEN MtC)=M(C)-1:2 M(A+B-C)=M(A+B-C)+1: GOTO 760 
KD=0: IF P$="MM" AND M(C)>1 THEN KD=1 

IF KD=1 THEN MICI=M(C)-2: M(A+B-C)=M(A+B-C)+2: GOTO 760 
KD=0: IF P$="Kk" AND K(C)>® THEN KD=1 

IF KD=1 THEN K(C)=K(C)-1: K(A+B-C)=K(A+B-C) +1: GOTO 760 
KD=0: IF P$="kK" AND K(C)>1 THEN KD=1 

IF KD=1 THEN K(C)=K(C)-2: K{A+B-C)=K(A+B-C)+2: GOTO 760 

IF (P$="M" OR P$="K" OR P$="MM" OR P$="KK") THEN 750 
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718 IF (P$="ME" OR P$="EM") AND (MiC){1 DR KIC)<i1) THEN 758 

728 MiC) = Mt{C)-1: M(A+B-C} = M(A+B-C)+1 

738 KiC) = KIC)-1: KiArB-CO) = KiArB-C+l 

748 GOTO 768 

758 FRINT" WIE DENN DAS??? „.. ": GOTO 5590 

768 REM. „= -euunuonsnusun neuen enu nenne .„NEUE SITUATION ZULAESSIG? 
77a IF MICISKIEO) AND M{C) > THEN GOSUB 1530: RF=i: GOTO 798 

788 IF MtA+B-C)<K(A+B-C) THEN IF M{A+B-C)>0 THEN GOSUB 1550: RF=i 
79@ IF RF=@ THEN 86% 

902 RF=® 

818 FRINT" >>> UNZULAESSIGER ZUG!" 

BZEBV=SV+rl 

82@ FRINT" >>> WEITER MIT "RETURN? !"; 

848 GET F$: IF F$="" THEN 840 

852 GOTO 7298 

BBeN=SN+iI 

BZ V=-V+l 

880 REM... nseunnsnnun nunnusennenesneuunnunnnnn »OPIELZUG NOTIEREN 
898 SAIN,0)=Mt8): SAN, DI=M{1) 

9988 SAN, ZI=K(8)2 SAIN,SI=K(1) 

718 C = A+B-C: REM SEITEN-INDEX VERTAUSCHEN 

920 GOTO 389 | 

750 REM. unnsuunsnenun nun nnneuen nn nn COMPUTER SUCHT DIE LOESUNG 
948 C = 1: REM BOOT AM RECHTEN UFER 

9580 REM AUSGABE DER AKTUELLEN SITUATION 

968 PRINT"=" 

978 IF A$="A" THEN PRINT" He”; TAB(11)N:GOTO 1980 

988 PRINT "MI 3 MISSIONARE UND KANNIBALEN B 

996 PRINT "m"3N5". UEBERFAHRT" 

1886 PRINT" Ms} SO SIEHT ES IM AUGENBLICK AUS: " 

1818 PRINT"M LINKES UFER", "RECHTES UFER" 

1920: PRINTY He Be ee ie 2 

18350 PRINT M{@) 5; TAB (4) "MISSIONAR (EI",„M(1)5 TAB (20) "MISSIONAR (EI " 
1848 PRINT" E"K (9) 5 TAB (4) "KANNIBALE (N)",K{1)5; TAB(20) "KANNIBALE N)" 
1858 PRINT:PRINT TAB(19%#1A+B-C)+4)5 

1866 PRINT" "= REM 12 LEERZEICHEN 
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1870 
1080 
1098 
1108 
111@ 
1120 
11590 
1148 
1159 
1168 
1170 
1180 
1199 
1208 
1219 
1229 
1230 
1248 
1258 
1268 
1278 
1280 
1290 
1300 
1319 
1328 
1330 
1346 
1350 
1260 
1378 
1596 
12970 


53 NE RE EEE DE RE IRON EIER REINER: SPIELZUG NOTIEREN 
SAIN,O) = Mi®)z SZIN,1) = M(1) 

SLIN,D) = Ki®): SYIN,Z) = KÜl) 

IF M{1)+Kt1)=Z THEN 1578 

IF A$="A" THEN 1180 

PRINT" KIM <WEITER: RETURN-TASTE DRUECKEN! >" 

PRINT" <BILDSCHIRMANZEISE ABSCHALTEN: A>" 


PRINT" <ZURUECK ZUM MENUE: Z> "3; 

GET A$: IF A$="" THEN 1156 

IF A$="A" THEN FRINT"M ICH RECHNE „..":PRINT"EE VERSUCH: " 
IF A$="Z" THEN CLR: G0T0 138 

REM. 2uunnannuunsunenennnenn une nu nen VORIGEN ZUSTAND NOTIEREN 
MV{C)=MiC): MV(A+B-C)=MiA+B-C) 


KVIEI=KIC): KVLA+HB-C)=KiA+B-C) 
N=N+i 
SZAIN,O)=M{@): SAN, 1)=M{1) 
SAN, ZI=K (8): SAN, FI=Ktl) 
=A+B-C:REM SEITEN-INDEX VERTAUSCHEN 
REM. -sussaonununen Enusuuenunnuen VERHINDERN UNSINNIGER ZUEGE 
IF C=@ THEN IF M{1)+Kt(1)=8 THEN U=s2: GOTO 1318 
IF C=1 THEN IF M({DI+Kt1)=2 THEN U=s1: GOTD 1318 
IF M(CI+KtC)=1 THEN U=1: GOTO 1319 
REM 1 ODER 2 PERSONEN UEBERSETZEN 
U=INT{RND{1)#=ZI+1:REM 1 ODER 2 PERSONEN WERDEN UEBERGESETZT 
F=8: REM FAHRTENZAEHLER 
V=V+1: REM VERSUCHEZAEHLER 


REM. seunuusaosununan rennen nn nn AUSWAHL (MISS. ODER KANN.) 
IF RND(1)>.5 THEN 1448 

REM. zoneoosnnuuunnesn sans en nun nen MISSIONAR UEBERSETZEN 
IF M{C})zi THEN 1449 


MICI=MIC)-1: MIA+B-C)I=MIA+B-C) +. 
F=F+1 
IF F< U THEN 1338 
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1486 
1410 
1420 
1450 
1440 
1450 
146% 
1476 
1486 
1498 
1590 
1518 
1520 
1530 
1548 
1559 
156% 
1576 
1580 
1579 
1590 
161®@ 
1620 
1630 
1646 
1656 
1659 
1570 
168% 
1698 
1708 
1719 
1726 
1730 
1740 
1758 


REM. „oo nuenusnnne eu nun nn n nenn nn NEUE SITUATION ZULAESSIG? 
IF M{C} < K{C) THEN IF Mt{C} > 8 THEN GDSUB 1530: GOTO 1288 
IF M(A+B-C)<KtA+B-C) THEN IFM(A+B-C) >OTHENGOSUB1 539: 6GDTD1289 
GOTD 758 

REN Se a a a KANNIBALE UEBERSETZEN 
IF K{C)X 1 THEN 1359 

KIOI=KIC)-1: KtA+B-CI=KtArB-C) +1 


F=F+1 

IF F< U THEN 1339 

Eee NEUE SITUATION ZULESSIG? 
IF M(C) < K(C) THEN IF MiC) > ® THEN GOSUB 1530: GOTO 1280 


IFM(A+B-C) <K{A+B-C) THEN IFM(A+B-C) >30 THENGOSUB153%: GOT01280 
G0TO 958 

BEN esta denen! ZUG ZURUECKNEHMEN 
MICI=MV (C): KIC}I=KV (CO) 

M(A+B-C) =MV (A+B-C): K(A+B-C)=KV (A+B-C) 

RETURN 

REM ae et “nu... AUSGABE DER SFIELZUEGE 
SL{N,O)=0: SAN, 1)=3 | 

SKIN, 2)=8: SKIN,F)=3 

PRINT: PRINT" DIE UEBERFAHRT IST GEGLUECKT!!!" 

PRINT: PRINT" GESAMTZAHL DER VERSUCHE: "; 

PRINT: PRINT"A)LLE VERSUCHE AUSGEBEN ODER NUR DIE" 

PRINT: INFUT"K)OMPRIMIERTE LISTE":A$ 

IF A$="K" THEN 1786 

IF A${>"A" THEN 1670 

PRINT "m 

FOR I=6 TO N 

IF (1/73 <> INT(1/7) THEN 1728 

PRINT" <WEITER: RETURN-TASTE DRUECKEN! >": 

GET F$: IF F$="" THEN 1706 


PRINT "7" 

PRINT 1,5%(1,0)3" ":5%(1,1) 
PRINT „S4t1,235" ":5%(1,3) 
PRINT 

NEXT I 
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1768 
1778 
1780 
1798 
1908 
1810 
1820 
1850 
1846 
1850 
1868 
1878 
1880 
18978 
1998 
1918 
1928 
1938 
1748 
1758 
1968 
1978 
19788 
1970 
2008 
2918 
2020 
2830 
2040 
2050 
2068 
2870 
2080 


FRINT" <WEITER: RETURN-TASTE DRUECKEN!>"5 

GET F$: IF F$="" THEN 1770 

REMa a re KOMPRIMIEREN DER SPIELZUEGE 
PRINT"TIeeI DIE SPIELZUEGE WERDEN KOMPRIMIERT"; 

{=N 


PRINT "."3 

IF (X/2) = INT(X/2) THEN I=2: GOTO 1840 
I=1 

5-0 

FOR J = 0103 


IF SX{1,9) = SXX,D THEN S = $+1 
IF I = THEN 1720 

NEXT 
IF S = 4 THEN SA(1,0)=-X: X=1I 

IF I < X-2 THEN I = I+2: G0TO 1848 

IFX> 3 THEN X = X-1: GOTO 1819 

REM. nen unnnnnnnennne AUSGABE DER KOMPRIMIERTEN SPIELZUEGE 
PRINT" KOMPRIMIERTE AUSGABE: --> RETURN"; 

GET F$: IF F$="" THEN 1949 

PRINT "p' 

X=6: REM AKTUELLER INDEX 

I=0: REM LAUFENDE NR. 

IF S%(X,0) £ @ THEN X = -521X,®) 

PRINT 1,5%(X,05" "35%0X,1) 

PRINT „SA(X,2)5" "35%0X,3): PRINT 

IF X >= N THEN 2080 

I=IHlı X = X 

IF INT(1/7) <> (1/7) THEN 2070 

PRINT" <WEITER: RETURN-TASTE DRUECKEN! >"} 

GET F$: IF F$="" THEN 2050 

PRINT "m 

G0TO 1980 

END 


u u || 


0) 


READY. 
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Stielaugen 


Das letzte Würfelspiel dieses Buches wird mit 
sechs Würfeln gespielt. Es können wieder beliebig viele 
Spieler daran teilnehmen, wobei jeder Teilnehmer in 
jeder Runde sechsmal hintereinander würfelt. Nach den 
Spielregeln beginnt jeder Spieler mit einem Würfel und 
nimmt bei dem zweiten Wurf einen zweiten Würfel dazu 
usw. bis er mit allen sechs Würfeln gewürfelt hat. In 
der zweiten Spielrunde wird zunächst mit sechs Würfeln 
gespielt, dann mit fünf, vier, drei usw., bis der 
letzte Wurf wieder mit einem Würfel erfolgt. Bei jedem 
Wurf werden sämtliche Augenzahlen addiert und zur kis- 
her erreichten Punktzahl des Spielers hinzugezählt. 
Gewonnen hat der Spieler, der die höchste Punktzahl 
erreicht hat. 


RUNDE 2 SFIELER 1 FUNETE 127 


{ZUM WUERFELN -> TASTE DRUECKEN) 
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Programmbeschreibung 


Zeile 10 - 170 
Einleitende Spielerklarung und Abfrage der Teil- 
nehmerzahl. 


Zeile 180 - 280 

Die Würfel werden aus Commodore-Grafik- und 
Cursorsteuerungszeichen zusammengesetzt und String- 
Variablen zugewiesen. 


Zeile 290 
Für den ersten bis sechsten Würfel werden Tabula- 
torpositionen festgelegt. 


Zeile 320 - 340 
Zufallige Anfangswerte für alle Würfel werden 
bestimmt. 


Zeile 360 - 490 
Erste Spielrunde. 


Zeile 370 . 
K gibt die Anzahl der Würfel an, mit denen der 
Spieler im nächsten Zug würfelt. 


Zeile 390 - 440 
Hier wird die entsprechende Zahl von Würfeln auf 
dem Bildschirm ausgegeben. 


Zeile 450 
Sprung in das Unterprogramm zum Würfeln mit K 
würfeln. 


Zeile 500 - 720 

Zweite Spielrunde. Hier wird zunächst mit 6 Wür- 
feln und dann bei jedem Wurf mit einem weniger gewürfet 
(Zeile 540). 

Zunächst werden 6 Würfel auf dem Bildschirm ge- 
zeigt (Zeilen 570 bis 610). Nachdem eine Taste gedrückt 
wurde (Zeile 620), wird der letzte Würfel entfernt 
(Zeilen 640 bis 670), mit der verbliebenen Anzahl ein 
Wurf durchgeführt (Zeile 680), das Ergebnis angezeigt 
(Zeile 700), und nach Durchführung aller Würfe zum 
nächsten Spieler übergegangen (Zeile 720). 
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Zeile 740 - 770 
Der Spieler mit der höchsten Punktzahl wird 
bestimmt. 


Zeile 780 - 910 

Ausgabe des Gewinners, Aufzählung der übrigen 
Spieler mit den erreichten Punktzahlen und Verzweigung 
zum Programmende oder zu erneutem Spielstart. 


Zeile 920 - 960 
Unterprogramm zur Ausgabe des Spielstandes. 


Zeile 970 - 1140 

Unterprogramm zum Würfeln. Zunächst werden für 
alle Würfel Zufallswerte festgelegt (Zeilen 980 bis 
1000), dann werden für jeden benötigten Würfel 20 ver- 
schiedene Augenzahlen gezeigt (Zeilen 1010 bis 1070) 
und anschließend werden die vorher bestimmten Werte für 
die Würfel, mit denen gerade gespielt wird, gezeigt 
(Zeilen 1080 bis 1110). Zum Schluß wird die Punktzahl 
des Spielers errechnet, der gerade gewürfelt hat (Zeile 
1120). 


RUNDE = SFIELER 3 FUNETE 102 


Je 
EHE 


{ZUM WUERFELN -> TASTE DRUECEEN) 
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FlußRdiagramm: Stielaugen 


Spielerklarung 


Eingabe: Anzahl 
der Spieler (N) 


FOR SP=41 710 


würfeln mit 4,23, 
4,5,6 Würfeln 

und Addition der 
Auvgenzahlen 


NEXT SP 


würfeln mit 6,5,%ı 
3,2.,1 Wüörfeln und 
Addition der Augen- 
zahlen 


NEXT SP 


Bestimmung des 
Gewinners 


Ausgabe des Gewinners 
und der übrigen Teil - 
nehmer mit Punktzahlen 


Ende 


28 PRINT"IIN 3 STIELAUGEN " 
39 PRINT" BEI DIESEM WUERFELSPIEL KOENNEN" 

48 PRINT" BELIEBIG VIELE SPIELER TEILNEHMEN. " 

56 PRINT" IN DER ERSTEN RUNDE WIRFT JEDER" 

&& PRINT" SPIELER SECHSMAL HINTEREINANDER, " 

7% FRINT" ZUNAECHST MIT 1 WUERFEL, DANN MIT" 

86 PRINT" 2,3,4,5 UND & WUERFELN." 


FRINT"M DIE AUGENZAHLEN WERDEN ADDIERT." 


PRINT"=M IN DER ZWEITEN RUNDE WIRFT WIEDER” 
PRINT" JEDER SECHSMAL, DIESMAL ZUERST MIT 6," 
PRINT" DANN MIT 5,4,3,2 WUERFELN UND ZULETZT" 
PRINT" MIT 1." 

PRINT”# GEWONNEN HAT DER SPIELER MIT DER" 
PRINT" HOECHSTEN GESAMTSUMME. " 

PRINT” ME WIEVIELE SPIELER"5= INPUT N 

DIM PA(N) 


REM. .aenonunnun Bnunnusnsusennenunsununenunonunuunn ee WÜERFEL 
weil)="m IE Se EEE | = 

WEiZ)=S"mie miiamEme! IUEEumI Zei" 

WE(Z)="ule mIINEREE| me m ERRERE | Sumı" 

ws (4)="mide er IRRE | I I | Ir. zu’ 23 


Ws (5)="eie om /IEBNRTE | Se m IRRE I De en" 
Ws (ö)="mime ou HERREN | De on IHRE I 1" 


STIELAUGEN 


WE (7)=" umamde IRaRMEE BER BTEI a 
FOR I=1 TO & 

WE {ID)="e .—— HET" +WS CT) + IRRE" 

NEXT I 


TtD=8: T23=15: TI9=22: Ti4)=B: TtQ9)=15: Ti6)=22 
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FOR SP=1 TON 

FOR I=1 TO 6 

W{TDD=INT{RND(1)%*6) +1 

NEXT I 

PRINT"7’;: POKE 53281,2: POKE 53280,2 
R=1 

FOR K=1 TO 6 

GOSUB 9730 

IF K=1 THEN PRINT" AMEMER"S TABCTCKIYSWSCWEKDD 5 
GET Z$: IF Z$="" THEN GOTO 480 

IF K£4 THEN PRINT" SIR"; : GOTD 430 
PRINT "STEIRISIRINTSIMTRTEINTEN" 5 

PRINT TAB(TIKI)SWSCHIKID 5 

FOR ZT=1 TO 186: NEXT ZT 

GOSUB 778 

NEXT K 

GOSUB 930 

FOR ZT=1 TO 18066: NEXT ZT 

NEXT SF 


REM. „oe... =. nm u m u 5 5 m u 2 m U = SB SS m mE U OS m 5 BE HE DB U RS m U U 5 SM m U Bm 


R=2 

FOR SP=1 TON 

PRINT"; 

FOR K=6 TO 1 STEP -1 

GOSUB 9738 

IF K£6 THEN GOTO 828 

FOR I=1 TO K 

IF I<4 THEN FRINT"=IeeeIeI";: GOTD 608 
PRINT" :Telaiaintaieieiefainie]" 5 

PRINT TAB{T{IDIISWECWEDDD 5 

NEXT I 

GET Z$: IF Z$="" THEN GOTO 628 
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„ . SPIELANFANG 


ZWEITE RUNDE 


638 
640 
658 
668 
670 
680 
670 
788 
7198 
728 
720 
740 
750 
768 
778 
780 
790 
808 
818 
820 
830 
840 
850 
868 
878 
880 
898 
788 
910 


IF K=6 THEN GOTO 688 
IF K<Z THEN PRINT" SMRININ"5: GOTO 660 

PRINT "SIHIKIAIsTA[KTeInInTnIe]" 5 

PRINT TAB(T(K+1))5W$(7I35 

FOR ZT=1 TO 106: NEXT ZT 

GOSUB 970 

NEXT K 

GOSUB 930 

FOR ZT=1 TO 1000: NEXT ZT 

NEXT SP 

212 REN RRFHEESERCREREHDRTSESSRERFE uunennennn „ERGEBNIS 


FOR SP=1 TON 

IF PAtSP)>PMAX THEN 6=5P: PMAX=P% (SP) 

NEXT SP 

PRINT"T" 

PRINT" GEWONNEN HAT SPIELER"36G5 "MIT"SPA{G) 5 "PUNKTEN." 
IF N=1 THEN GOTOD 888 

IF N=2 THEN GOTO 848 

FRINT"MIi DIE ANDEREN SFIELER ERREICHTEN" 

PRINT" FOLGENDE PUNKTZAHLEN:": PRINT 

FOR SP=1 TO N 

IF SP=G THEN GOTO 876 

PRINT" SPIELER"5SP5 "12 "3P% (SP) s "PUNKTE" 

NEXT SP 

FRINT" Male NOCH EIN SPIEL (J/N)D”"5= INPUTIN$ 

IF JN$="J" THEN CLR: GOTO 168 

POKE 53281,6: POKE 33280,14 

PRINT"T"’SCHR$ (154): END: REM. ....... „nunueununnun. sOPIELENDE 
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929 
7380 
949 
950 
968 
970 
980 
998 
1000 
1010 
1020 
1856 
1840 
1058 
1068 
1970 
1880 
18978 
1190 
1110 
1120 
1130 
1140 


REM. „oonunsunseuneuenonunen .. „ UNTERPROGRAMM SPIELSTANDANZEIGE 
PRINT CHR$ (1595 "ml RUNDE"SR3 TAB{12)5 "SPIELER"”5SP3 
PRINT TAB (25) 3 "PUNKTE"5P% (SP) 
PRINT" SIsIafeteistainieteinteinietsisteisin (ZUM WUERFELN -> TASTE DRUECKEN) " 
RETURN 
REM..... .ununenununnen UNTERPROGRAMM WUERFELN MIT K WUERFELN 
FOR I=1 TOK 
WEII=INTERND(1)*6) +1 

NEXT I 

FOR Q=1 TO 20 

FOR I=1 TO K 

IF I<4 THEN PRINT" See"; . GOTO 1050 

PRINT" SIHInIeinTapTateintein]" ; 

FRINT TAB(T(I)) 5 W$(Q+I-&&INT((B+I)/6)+1)5 

NEXT I 

NEXT Q 

FOR I=1 TOK 

IF I<4 THEN PRINT" =IMeInea"s;: GOTO 1110 

PRINT " SInIKininteinteinieintel" ; 

PRINT TAB{T{DI5WECWITDDDS5 

PA(SFI=PAISPI+WEI) 

NEXT I 

RETURN 


READY. 
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Sechs-Bauern-Spiel 


Das folgende Spiel stellt ein Beispiel für 
"intelligentes" Verhalten von Maschinen dar. Es ist 
sehr einfach aufgebaut und leicht zu spielen, 
demonstriert jedoch zugleich in eindrucksvoller Weise 
die Lernfähigkeit von Computern. 


Dieses Spiel wurde von Martin Gardner in seinem 
Buch "Logik unterm Galgen" (erschienen im Vieweg-Ver- 
lag, 1971) unter dem Namen HEXAPAWN (= Sechs-Bauern- 
Spiel) vorgestellt. Zunächst soll das Spiel mit seinen 
Regeln beschrieben werden, anschließend gehen wir näher 
auf das von uns dazu entwickelte Programm ein. Die 
Abbildung zeigt erst einmal den Spielplan. 


Sechs-Bauern-Spiel 
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Auf dem Spielplan mit seinen 9 Feldern sind sechs 
Bauern einander gegenüber aufgestellt, wobei die mitt- 
lere Reihe unbesetzt bleibt. Zwei Spieler ziehen ab- 
wechselnd nach folgenden Regeln: 


1. Ein Bauer kann geradeaus auf ein leeres Feld 
gesetzt werden, oder 
2. Ein Bauer kann einen gegnerischen Bauern dia- 


gonal schlagen. 


Ein Spieler hat in einer der folgenden Situationen ge- 
wonnen: 


1. Ein Bauer gelangt in die gegnerische Anfangs- 
reihe. 

2. Alle Figuren des Gegners sind geschlagen. 

3. Eine Spielstellung ist erreicht, in der den 


Gegner kein Zug mehr möglich ist. 


Das Spiel ist also nach wenigen Spielzügen been- 
det, wobei am Anfang nicht ersichtlich ist, wer von den 
beiden Spielern die bessere Stellung besitzt. 


Martin Gardner stellt nun eine zu diesem Spiel 
entwickelte einfache Lernmaschine vor, die wir Ihnen 
nicht vorenthalten möchten. Die Gelegenheit zum Nachbau 
könnte sich bei einem plötzlichen Stromausfall ergeben, 
der Ihren Computer zur Arbeitslosigkeit’ verdamnt. 
Gardners Lernmaschine 'HER' (Hexapawn Educable Robot = 
Sechs-Bauern-Spiel-Lernroboter) besteht aus 24 Streich- 
holzschachteln und farbigen Perlen (z.B. Liebesperlen). 
Die Abbildungen auf den Seiten 180 und 181 zeigen alle 
möglichen Spielstellungen vor dem zweiten, viertem und 
sechstem Zug. Dabei sind, abweichend von Gardners Dar- 
stellung, auch spiegelbildliche Positionen eingetragen, 
da sie für unser Programm wichtig sind. 


Zur Herstellung des Streichholzschachtelroboters 
werden jedoch nur die beiden linken Spalten benötigt 


(ohne die Spiegelbilder). Die eingetragenen Pfeile 
geben die möglichen Züge für jede einzelne erreichte 
Spielposition an, wobei die Zahlen jeweils eine von 


vier Farben symbolisieren. Diese Zeichnungen werden nun 
auf die Streichholzschachteln geklebt und die Pfeile 
entsprechend den Zahlen farbig markiert. Danach wird in 
jede Schachtel für jeden farbigen Pfeil eine passende 
Perle gelegt. 
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Nach diesen Vorarbeiten ist der Lernroboter ein- 
satzbereit. 


Er lernt auf folgende Weise: 


Der Gegenspieler des Lernroboters beginnt immer 
mit dem 1. Zug. Anschließend wird die Schachtel, die 
der erreichten Spielposition (oder ihrem Spiegelbild) 
vor dem 2. Zug entspricht, herausgesucht. Durch eine 
Zufallsentscheidung wird dann ein bestimmter Zug stell- 
vertretend für den Lernroboter ausgewählt, d.h. die 
Schachtel wird geschüttelt und mit geschlossenen Augen 
eine Perle herausgenommen. Der Zug, der der Farbe die- 
ser Perle entspricht, wird ausgeführt (die ausgewählte 
Perle legt man auf die Schachtel). Anschließend ist 
wieder der Spieler an der Reihe. 


Dieser Vorgang wird sooft wiederholt, bis das 
Spiel entschieden ist. Hat der Streichholzschachtelro- 
boter gewonnen, werden alle Perlen wieder in die 
Schachteln zurückgelegt, und ein neues Spiel beginnt. 
Hat er jedoch verloren, wird diejenige Perle ganz aus 
dem Spiel entfernt, die den letzten Roboterzug vor dem 
Siegeszug des Spielers auslöste. Alle anderen Perlen 


werden in die Schachteln zurückgelegt. 


Trifft man im Verlaufe eines Spieles auf eine 
leere Streichholzschachtel, so hat der Lernroboter 
keinen Zug mehr, mit dem er nicht verlieren würde; er 
gibt also an dieser Stelle zu verstehen, daß er das 
aktuelle Spiel verloren hat. Wiederum wird die Perle 
vor dem letzten Spielerzug entfernt. 


Nach einer gewissen Anzahl von Spielen wird der 


"Streichholzschachtelroboter" unschlagbar. Das wird 
sehr schnell einsichtig, wenn man sich klarmacht, daß 
im Verlaufe mehrerer Spiele ja jeweils die Perlen der 
Züge, mit denen diese Lernmaschine verloren hat, ent- 
fernt werden. In den folgenden Spielen kann also der- 
selbe, zum Verlieren des Roboters führende, Zug nicht 
mehr ausgewählt und ausgeführt werden. Spielt man lange 
genug gegen diese Lernmaschine, hat sie nach einer 
gewissen Zeit nur noch Züge übrig, mit denen sie ge- 
winnt. Je geschickter übrigens der Gegenspieler ist, 
d.h. je häufiger er zu Anfang gewinnt, desto schneller 


lernt der Streichholzschachtelroboter. 
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Da die Herstellung nicht sehr aufwendig ist, pro- 
bieren Sie ruhig einmal aus, ob Sie auch noch das 50. 
Spiel gegen die Streichholzschachteln gewinnen! 


Aufbauend auf dieser Idee Gardners haben wir die 
Streichholzschachteln durch den Computer ersetzt. Das 
Programm ist recht umfangreich, demonstriert aber sehr 
schön die Lernfähigkeit Ihres Computers. 
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Programmbeschreibung 


Das Programm ist mit zahlreichen REM-Zeilen verse- 


hen, die die einzelnen Abschnitte erläutern. In der 
Programmbeschreibung werden zusätzlich noch wichtige 
Variablen erklärt. Zum Programmverständnis dienen auch 


die Abbildungen der Seiten 180 und 181 und ein verein- 
fachtes Flußdiagramm. 


Zeile 20 - 190 
Erklärender Kommentar zum Spielverlauf und den 
Spielregeln. 


Zeile 210 - 280 

Die Kennzahlen für die dem Computer in allen 
Spielsituationen möglichen Züge werden aus den DATA- 
zeilen eingelesen. 


Einige wichtige Variablen sollen an dieser Stelle 
erläutert werden. Die Variable K gibt an, ob es sich um 
die vom Computer vorgefundene Spielstellung nach dem 
1., 3. oder 5. Zug handelt.Die Feldvariable KI(K) liest 
die Anzahl der möglichen Spielsituationen nach dem 1., 
bzw. 3., bzw. 5. Zug ein, entsprechend den Abbildungen. 


Als Kennzahl für einen bestimmten Zug in einer 
bestimmten Stellung dient die Variable V(K,I,J); sie 
entspricht also jeweils einem Pfeil in einer Abbildung. 
Dabei wurde die folgende Lesart gewählt: Ist 
V(K,I,J) = 0, darf der Computer den zugehörigen Zug in 
der entsprechenden Spielstellung ausführen. Ist 
V(K,I,J) größer als Null, ist dieser Zug nicht erlaubt. 


Sollen also im Verlauf mehrerer Spiele dem Compu- 
ter die Züge verboten werden, die ihn verlieren lassen, 
so braucht nur die jeweilige Kennvariable V(K,I,J) auf 
einen Wert größer als Null gesetzt zu werden, auf diese 
Weise "lernt" der Computer. 


Zeile 310 - 510 


Spielfeldausgabe und Setzen der weißen und schwar- 
zen Spielsteine in die Ausgangsstellung. 
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Zeile 530 - 560 

Die Feldvariable A(I) repräsentiert die 9 Felder 
des Spielfelds. Es sind folgende Wertzuweisungen vorge- 
sehen: 
A(I) = 2: schwarzer Spielstein auf Feld I; A(I) = 1: 
weißer Spielstein; A(I) = 0: leeres Feld. 


Zeile 590 - 670 

Ausgabe des Spielstandes. Die gewonnenen und 
verlorenen Spiele werden angezeigt. Dabei wird jeweils 
eine Eins für ein vom Computer verlorenes Spiel ausge- 
geben und eine Null, falls der Spieler verloren hatte. 


Zeile 690 - 910 . 
Eingabe des Spielers und Überprüfung, ob der ge- 
wählte Zug den Regeln entspricht. 


Zeile 920 - 960 
Der angegebene Spielzug wird in den Feldvariablen 
notiert und der Zug ausgeführt. 


Zeile 980 - 1010 
Unterprogramm zum Ausführen eines Zuges. 


Zeile 1040 - 1090 
Die Anzahl der Züge wird erhöht und danach zu dem 
2., 4. oder 6. Zug verzweigt. 


Zeile 1120 - 1140 

Die Stellung der weißen Spielsteine wird über- 
prüft. Die Variable CF beschreibt die Spielsituation, 
die der Computer vor seinem Zug vorfindet (entsprechend 
der Anordnung der Abbildungen). 


Zeile 1160 - 1170 
Der Computer wählt einen zufälligen Zug aus. Der 
Variablen ZW wird diese Zugauswahl zugewiesen. 


Zeile 1190 - 1250 

Es wird überprüft, ob der ausgewählte Zug auch 
ausgeführt werden darf. Dazu wird er mit der dazugehö- 
rigen Variablen V(K,I,J) verglichen. 
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Zeile 1270 —- 1310 

In dem Unterprogramm wird je nach der vorgefunde- 
nen Spielsituation noch einmal weiterverzweigt. Nach 
dem Rücksprung aus dem jeweiligen Unterprogramm wird 
der Zug notiert (Zeile 1290) und ausgeführt (Zeile 
1300). | 


Zeile 1320 - 1480 

Innerhalb des Unterprogrammes für eine Spielsitua- 
tion wird noch einmal - dem ausgewählten Zug (ZW) ent- 
sprechend - verzweigt, und es werden die Koordinaten 
dieses Zuges bestimmt. Dabei notieren A und B Zeile und 
Spalte des Ausgangspunktes, TC und D den Endpunkt des 
Zuges. 


Zeile 1490 - 3500 

Diese Programmzeilen enthalten alle weiteren mög- 
lichen Spielstellungen vor dem vierten und sechsten Zug 
und die Koordinaten von Anfangs- und Endpunkten aller 
Computerzüge. Die jeweiligen Situationen sind in den 
REM-Zeilen angegeben. 


Zeile 3550 

In dieser Zeile wird geprüft, ob der Computer 

verloren hat: | 

1. Ist die Variable S gleich Null, ist kein 
schwarzer Spielstein mehr vorhanden. 

2. Hat einer der weißen Spielsteine (also der 
Gegner) die Grundlinie (des Computers) er- 
reicht, so hat eine der Feldvariablen A(0) bis 
A(2) den Wert Eins. 

3. Steht dem Computer in einer Spielsituation 
kein Zug mehr zur Verfügung, mit dem er nicht 
verlieren würde (gleichbedeutend mit dem An- 
treffen einer leeren Streichholzschachtel), so 
ist die Variable KE gleich Vier. 


Zeile 3570 - 3690 

Es wird überprüft, ob auf Grund der Stellung der 
weißen und schwarzen Spielsteine alle Steine des Compu- 
ters blockiert sind, er also bewegungsunfäahig geworden 
ist. 


Zeile 3720 - 3860 


Hier wird - ebenso wie für den Computer - über- 
prüft, ob der Spieler verloren hat. 
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Zeile 3870 - 3930 
Ausgabe des Spielergebnisses. 


Zeile 3940 - 3970 

Diese Programmzeilen bewirken das eigentliche 
"Lernen" des Computers. Sollte er verloren haben, wird 
die Kennzahl V(K,I,J) für seinen letzten Zug größer als 
Null, d.h. der Computer kann den Zug, der zum Verlieren 
führte, in den folgenden Spielen nicht mehr auswählen. 


Zeile 4000 - 4040 

Bei Programmabbruch besteht die Möglichkeit, das 
gesamte Programm mit neuen DATA-Zeilen und dem bisher 
"erlernten" Wissensstand des Computers abzuspeichern 
(am besten natürlich unter einem anderen Namen!). 


Zeile 4050 - 4240 
Erzeugung der neuen DATA-Zeilen und Programmende. 


Wer nicht das gesamte Programm mit den neuen DATA- 


Zeilen abspeichern möchte, kann diesen Programmteil 
leicht so umäandern, daß z.B. auf der Diskette bzw. 
Kassette ein Daten-File angelegt wird, in dem dann die 


Werte für KI(K) und die neuen Kennzahlen V(K,I,J) ste- 
hen. In diesem Fall muß dann außer dem Lesen der DATA- 
Zeilen (Zeilen 200 bis 280) auch eine Möglichkeit vor- 
gesehen werden, die Daten aus einem File einlesen zu 
lassen. 


Zeile 4250 - 4330 
DATA-Zeilen mit den Kennzahlen für die dem Computer 


erlaubten bzw. verbotenen Züge. 
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Flußdiagramm: Sechs-Bauern-Spiel 
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10 REMananeenennn ER TREE nunnunaa a 6-BAUERN-SPIEL 
26 PRINT "m 3 SECHS-BAUERN-SPIEL a 
380 PRINT "= BEI DIESEM SPIEL HABEN SIE UND DER COM-" 
48 PRINT "7 PUTER JE 3 SPIELSTEINE, DIE SICH SO BE-" 
58 PRINT ""] WEGEN WIE DIE BAUERN BEIM SCHACH. " 

68 PRINT "= D.H. SIE KOENNEN EIN FELD GERADEAUS" 

78 PRINT " ZIEHEN ODER DIAGONAL SCHLAGEN. " 

86 PRINT "=! GEWONNEN HAT DERJENIGE, DER ZUERST MIT" 
98 PRINT " EINEM STEIN DIE GESNERISCHE GRUNDLINIE" 
188 PRINT " ERREICHT, ALLE GEGNERISCHEN STEINE GE-" 
118 PRINT " SCHLAGEN ODER SO GEZOGEN HAT, DASS SICH" 
128 PRINT "71 DER GEGNER NICHT MEHR BEWEGEN KANN." 

138 PRINT "= IM UNTERSCHIED ZU ANDEREN SPIELEN LERNT" 
148 PRINT ""] DER COMPUTER HIER JEDOCH ZU GEWINNEN" 
156 PRINT " UND ZWAR UMSO SCHNELLER JE BESSER SIE" 
168 PRINT " GEGEN IHN SPIELEN." 

170 PRINT "= NACH MEHREREN SPIELEN WIRD ER SIE" 

188 PRINT " ALSO IMMER BESIEGEN!" 

17@ PRINT "= (WEITER MIT TASTENDRUCK) "5 

206 REM. sie ee EEE EORTTS EINLESEN DER GRUNDDATEN 
218 DIM V(3,11,4),A(12) 

220 FOR K=1 TO 3: READ KI(K) 

239 FOR I=1 TO KI(K) 

248 FOR J=1 TO 4 

250 READ Vz ViK,I,J)=V 

268 NEXT J 

270 NEXT I 

288 NEXT K 

290 GET Z$: IF Z$="" THEN GOTD 290 

308 SP=6: VL=® 
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318 
320 
336 
540 
330 
368 
370 
380 
398 
400 
410 
420 
430 
440 
458 
460 
470 
480 
490 
300 
318 
320 
330 
340 
38 
260 
370 


12 eigener BRIELFEED 
SP=SP+1 

PRINT "75 

POKE 53281,14 


PRINT CHR$(144); 

PRINT "SU 1 2 3” 

PRINT "Aal TOT 

PRINT "Al I 1 9" 

PRINT" Lu 

PRINT" I ı 1 # 

PRINT "Bi I 1» 

PRINT" I ı ı # 

PRINT" PTT TOM 

PRINT "CI I ı M 

PRINT" Lu." 

BS=-1147: F5=55419 

FOR J=8 TO 1 

FOR I=8 T0 2 

POKE BS+3#1+6#J#40, 224: POKE F5+3%*1+6*J*40,J 
NEXT I 

NEXT J 

REM. auunonu .nununnne non ueuensunnunun. u... AUSGANGSSITUATION 
Z= 

FOR 1-8 T0 2 

AtI)=2: AlI+P=0: AtI+6)=1 

NEXT I 

9=3:3 W=5: REM. „ueneuneununnnn „unnnnnnen«ANZÄHL SCHWARZ/WEISS 
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388 
398 
698 
618 
620 
630 
648 
650 
668 
670 
688 
690 
768 
710 
720 
730 
748 
750 
768 
778 
788 
790 
800 
818 
820 
830 
840 
850 
868 
870 
880 
878 
9708 
910 
920 
9730 


REM 2uuuunnnnunnunnnnunununannnunnnnn nun „ABFRAGE SPIELERZUS 
IF SP=1 THEN G0TD 480 
PRINT "3"= PRINT TAB(20) 5 "VON"5SP-15 "SPIELEN HAT” 
PRINT TAB(20) 5 "DER COMPUTER" 
PRINT TAB(19)5VL5 "VERLOREN. ": PRINT 
PRINT TAB(28) 5 "SPIELSTAND: " 
PRINT TAB(20) 5 LEFT$(SP$,19)=: IF LEN(SP$)<28 THEN GOTO 489 
FÜR 1=20 TO LEN(SP$) 
IF 19*INTC(I-1)/19)=I-1 THEN PRINT TAB(20) ;MID$(SP$,1,I+18) 
NEXT I 
PRINT "3": FOR I=1 TO 12: PRINT: NEXT I 
Z=1+1: PRINT"SPIEL:"5SP: PRINT Z3"N. ZUG" 
PRINT: PRINT: INPUT"VON IERERI";A$ 
REM.» anneauaausnuunnsnnnnnununununnenn«PRUEFEN DER 1. EINGABE 
IF LEN(A$)<>2 THEN PRINT ""TIT”: 6010708 
=RIGHT$ (A$, 1): A$=LEFT$(A$, 1) 
A=ASC(A$)-65: B=VALIBS)-1 
IF A$="E" OR B$="E" THEN GOTO 3990 
IF AX® OR B<@ OR A>2 OR B>2 THEN PRINT"'ITIT”: G0TD 708 
INPUT"NACH EBEN" 5C$ 
REM. nnnnnnnnnnnnnnnrnunnuununnnnunnnn«PRÜEFEN DER 2. EINGABE 
IF LEN(C$)<>2 THEN PRINT" TI":60T0779 
D$=RIGHT$(C$,1): C$=LEFT$(C$, 1) 
C=ASC(C$)-65: D=VAL(D$)-1 
IF C$="E" OR D$="E" THEN G0OTO 3990 
IF C<® OR D<® OR C>2 OR D>2 THEN PRINT"TI: 60TD 770 
SG=A(C#3+D): SW=AlAXS+B): FE=@:REM START WEISS/ZIEL SCHWARZ? 
IF(( (D=B-10RD=B+1 ) AND (S6X< >2) ) ORD<B-10RD>B+10RSG=1) THEN FE=1 
IF FE=1 THEN 60T0 900 
IF ((D=B AND SG=2) OR SW<>1) THEN FE=1: G0TD 999 
IF (C=A OR C<A-i OR ({C=A-1) AND (SG=1))) THEN FE=1 
IF FE=® THEN GOTO 910 
PRINT "DIESER ZUG IST NICHT ERLAUBT!’ITIT!: GOTD 708 
PRINT " " 
IF SG=2 THEN S=S-1: REM. annennneee nn nen.» SCHWARZ GESCHLAGEN? 
AtAr3+B)=0: AlC#3+D)=13 REM.222..0.0......NOTIERUNG DES ZUGES 
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940 REM. „nununnnunnsenuunnnuunnneunnnnu.soPIEL BEENDET? (V5=1..) 
950 FA=1: KE=0: G0OSUB 970: IF V5=1 OR VW=1 THEN GOTO 316 

968 GDTO 1920 

978 REM. zuusononnunnenuunnnenun nn UNTERPROGRAMM ZUG AUSFUEHREN 
9880 POKE BS+3#D+3%*C*40, 224: POKE FS+3*D+3#C#40,FA 

99@ POKE FS+3#B+3#A#40,14 


1080 
18018 
1820 
1030 
1840 
19050 
1060 
1070 
1089 
1990 
1108 
1110 
1128 
1130 
1148 
1150 
116® 
1170 
1180 
1190 
1208 
1210 
1220 
1230 
1240 
1259 


G0SUB 3518 

RETURN 

REM. essen eier ssbOMPÜTERZUG 
FOR K=1 TO 508: NEXT K 

Z=1+ 

ON INT(Z/2) GOSUB 1100,1490,2650: REM „naunnaunuunı ZUG 2/4/6 
IF KE=4 THEN 60SUB 3510: REM. .....“u.0....KEIN ZUG ERLAUBT? 
FOR K=1 TO 500: NEXT K 

IF VS=1 OR VW=1 THEN GOTO 310: REM. onnnsnnn nn nn. SPIELENDE? 
G0TO 580: REM. „unnunnnnenon nen u nn nn nun nen nn nn. NÄECHSTER ZUG 
23 RS RE NENNE NUR TOO EEE TER ERFREUT 0 1: 
REM. suunonnsnnnnnnnnn nun en nnonn nennen nun nn. VERTEILUNG WEISS 
IF At4)=1 THEN CF=2: GOTO 1160 

IF A(3)=1 THEN CF=1: 60T0 1160 

IF A(5)=1 THEN CF=3: 60TD 1169 

REM» ouunennnnennnnnnnnnnnnun nn.» ZUFAELLIGE WAHL EINES ZUGES 
ZW(L)=INT(RND (1) #4) +1 

ZW=ZW(1): CF(1)=CF 

REN users zi FRLAUBT? 
KE=0: KD=® 

FOR I=1 TO 4 

IF V(1,CF,I)=ZW THEN KD=1 

IF V(1,CF,D)=I THEN KE=KE+1 

NEXT I 

IF KD=1 AND KE<4 THEN GOTO 1168 

IF KE=4 THEN 60T0 1310 
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1268 
1276 
1280 
1290 
13508 
1310 

320 
1330 
1340 
1358 
1360 
1370 
1380 
13978 
1400 
1410 
1420 
1458 
1440 
1450 
146% 
1478 
1480 
1498 
1596 
1510 
1920 
1350 
1540 
13958 
1968 
1578 
1586 
15970 
1586 
161® 


ein FESTSETZEN DER KOORDINATEN 
ON CF GOSUB 13520,13580, 1430 
WG=AtC#3+D): IF WG=1 THEN W=W-1: 
AlC#3+D)=2: AlAX3S+B)=0: REM. ..... .. 
FA=0: GOSUB 978 

RETURN 


REM...... WEISS GESCHLAGEN? 
TE ZUGNOTTERUNG 


Bring 1.SPIELSITUATION 
ON ZW GOSUB 1350,1360, 1376 

RETURN 

A=0: B=l: C=1: D=d: RETURN 

D=1: RETURN 

D=2: RETURN 

REM SiS air 2.SPIELSITUATION 
ON ZW GOSUB 1410,1429 

RETURN 
A=8: B=0: 
A=0: B=0: 
REM: aus an: 
DN ZW GOSUB 1468, 1470, 1480 
RETURN 

A=8: B=1: C=1: 
: £=1: 
C=1: 


D=B: 
D=1: 


RETURN 
RETURN 


C=1: 
C=1: 
.... 0... SPIELSITUATION 


D=2: RETURN 
D=1: RETURN 
D=®: RETURN 
ZUG 


GDTO 1590 

GOTD 1578 
1590 

1590 
G0OT01598 


IF{AO) ANDA (ZI AND (ACH ORA (SI IANDZITHEN GOSUB2548: 
IF (Ati) AND A{2) AND At4) AND2) THEN GOSUB 2568: 
IF (Ati) AND At2) AND Atz> AND 2) THEN CF=5: 60T0 
IF (At) AND All) AND AS) AND 2) THEN CF=4: GDTD 
IF (A{8) AND Al2) AND 2) AND(S=2) THEN GOSUB 2580: 
Ar=8: IF (Ati) AND {At®) OR At2)) AND 2) THEN AA=1 
IF (AA=1) AND {5=2) AND At4)=8 THEN EF=9: GOTD1590 
IF{ALIIAND (A) DORA (2) JANDZIAND (5=2) THEN GOSUB2689: GOTO1598 
REN sa nein ZUFAELLIGE AUSWAHL EINES ZUGES 
ZW=INT{RND (1)%4) +1 

ZWwi2)3=ZW: CF(Z2)=CF 
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REM ars ZUG ERLAUBT? 
KE=6: KD=® 

FOR I=1 TO 4 

IF V(2,CF,II=ZW THEN KD=1 

IF vV(2,CF,I!=I THEN KE=KE+1 

NEXT I 

IF KD=1 AND KE<X4 THEN GOTD 1698 

IF KE=4 THEN GOTD 1770 

REM 2 wars eier « KOORDINATENBESTIMMUNG 
ON CF GOSUB 1790, 1900, 1970, 2040, 2100, 2150, 2200, 2290 

IF CF<9 THEN GOTD 17498 

DN CF-8 GOSUB 2326, 24080, 2470 

WG=AlC#3+D): IF WG=1 THEN W=W-1: REM......WEISS GESCHLAGEN? 
A(C#3+D)=2: AtAx3+B)=0: REM..... Dessen -.. . ZUGNOTIERUNG 
FA=G: GOSUB 778 

RETURN 

REM. een „nunnsennnnnennn ln SPIELSITUATION 
DN ZW GOSUB 181%, 18350, 1859, 1870 

RETURN 

IF (AtD9=2) AND {At8)=1) THEN A=0: B=0: C=1: D=1: RETURN 
A=8: B=2: C=1: D=1: RETURN 

IF (At»=2) AND (AtB}=1) THEN A=0: B=2: C=1: D=1: RETURN 
A=6: B=8: C=1: D=1: RETURN 

IF (AtaDd=2) AND (At8)=1) THEN A=0: B=2: C=1: D=2: RETURN 
A=6: B=®: C=i: D=0: RETURN 

IF (At»9=2) AND (AtB)=1) THEN A=i: B=0: C=2: D=6: RETURN 
A=1: B=2: C=2: D=2: RETURN 

REM. unse een ee „uunennnunnne nu SPIELSITUATION 
DN ZW GOSUB 1920, 1940 

RETURN 

IF A(S9=1 THEN A=1: B=0: C=2: D=8: RETURN 

A=i: B=2: C=2: D=2: RETURN 

IF AS9=1 THEN A=1: B=0: C=2: D=1:RETURN 

A=1: B=2: C=2: D=1: RETURN 
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1968 
1970 
1788 
1790 
2008 
2018 
2020 
2030 
2048 
2050 
2068 
2070 
2088 
2098 
2100 
2110 
2128 
2130 
2148 
2150 
216® 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
25308 


REN ass anne nee sa SP IELSITUATION 
DON ZW GOSUB 1970, 2080, 2010, 2020 

RETURN 

A=: B=2: C=1: D=2: RETURN 

A=1: B=1: C=2: D=1: RETURN 

A=82: B=1: C=1: D=0: RETURN 

A=1: B=1: C=2: D=2: RETURN 

REN. ass aan aan nn an nn 4, SPIELSITUATION 
ON ZW GOSUB 2080, 2070, 2088 

RETURN 

A=8: B=1: C=1: D=2: RETURN 

A=1: B=1: C=2: D=0: RETURN 

A=1: B=1: C=2: D=1i: RETURN 

BEN. aussen nad OPIELSITDATION 
DON ZW GOSUB 2120, 2120, 2139 

RETURN 

A=9: B=1: C=1: D=2: RETURN 

A=8: B=2: C=1: D=1: RETURN 

REM. -unsnonenuusnuunnnununuunnunnnunnn cn nn 5 0 SFPIELSITUATION 
ON ZW GOSUB 2170, 2170, 2180 

RETURN 

A=8: B=1: C=1: D=06: RETURN 

A=8: B=8: C=1: D=1: RETURN 

REM. .“uoenusnuunnnunennunnnunnnnnunnnn nn nn 7 = SPIELSITUATION 
DN ZW GOSUB 2220, 2240, 2260 

RETURN 

IF At3)J=1 THEN A=0: B=2: C=1: D=1: RETURN 

A=6: B=0: C=1: D=1: RETURN 

IF At{SI=1 THEN A=0: B=0: C=1: D=1: RETURN 

A=®: B=2: C=1: D=1: RETURN 

IF AtSI=1 THEN A=0: B=2: C=i: D=2: RETURN 

A=0: B=8: C=1: D=0: RETURN 

REM. sus aan na na nann nn a n DB SPIELSITUATIDN 
IF A(33=1 THEN A=0: B=2: C=1: D=2: RETURN 

A=8: B=6: C=1: D=8: RETURN 
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2310 
23520 
2330 
2340 
2350 
2360 
2370 
2580 
2390 
2400 
2410 
2420 
2450 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2530 
2360 
2570 
2580 
2590 
2680 
2610 
2620 
2650 
2648 


REM: SEE 


ON ZW GOSUB 2340, 23590, 2370 


RETURN 

A=0: B=1: C=1: D=1: 
IF At8)=2 THEN A=0: 
=: B=1: C=1: D=0: 
IF At8)=2 THEN A=0: 
A=8: B=1: C=1: D=2: 


RETURN 
B=1: C=1: 
RETURN 
B=1: C=1: 
RETURN 


D=0: 


REM Uses 


ON ZW GOSUB 2420, 2420, 2440 


RETURN 

IF At2)=2 THEN A=0: 
=: B=0: C=1: D=®: 
IF At2)=2 THEN A=0: 
A=8: B=8: C=1: D=i1: 


B=2: C=1: 
RETURN 
B=2: C=1: 
RETURN 


REM aussi 


DN ZW GOSUB 2490, 2510 


RETURN 

IF At2)=2 THEN A=0: 
=®: B=0: C=1: D=i: 
IF At2)=2 THEN A=0: 
=: B=d: C=1: D=0: 


B=2: 
RETURN 


RETURN 


C=1: 


D=2: 


sunuunenuennnc. 9. SPIELSITUATION 


RETURN 


RETURN 


nennen. 10. SPIELSITUATION 


RETURN 


RETURN 


„.:0....11.SPIELSITUATION 


RETURN 


RETURN 


REM. ououunenunnuunnsunnununnunnnun. VERTEILUNG WEISS FRUEFEN 


IF 
IF 
IF 


(A(4) 
{AM 
{At3) 
{A(5) 
{A(4) 


AA=B: 


AA=B: 


IF AA=1 OR (tAt8)=2) AND (AtO)=1)) 


RETURN 
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AND (At&) OR A{8)) AND 1) THEN CF=1: 
AND (At3) OR AS) AND 1) THEN CF=2: 
AND AtB) AND 1) THEN CF=3: 
AND At&) AND 1) THEN CF=4: 
AND A(7) AND (ALHIORA(SI) AND 1) THEN CF=7: RETURN 
(ALSIANDA(BIANDI) OR (ACSIANDA (GH) ANDI) I) THEN CF=B:RETURN 
IF ((A{2)=2) AND (A(8)=1)) THEN AA=1 

IF AA=1 OR (tALO=SZIAND(ALGI=1)) THEN CF=10: 
IF (t(At2)=2) AND (Alö)=1)) THEN Adi 


RETURN 
RETURN 
RETURN 
RETURN 


RETURN 


THEN CF=11= RETURN 


2690 
2668 
2670 
2680 
2690 
2700 
2710 
2720 
2750 
2740 
2750 
2768 
2770 
2798 
2796 
2806 
2818 
2820 
2830 
2840 
2850 
2869 
2870 
2890 
2870 
2908 
29718 
2920 
2930 
29740 


Reh eat GER ER ENGE IE REITER ERRIE &. ZUG 
REM aa EEREERRN PRUEFEN DES VERTEILUNG WEISS/SCHWARZ 
KO=9: IF CALZIANDA (ZI IORAISIANDALB)IIAND 2 THEN KO=1 

IF (At4)=2 AND KQ=1) THEN CF=1: G0T02898 

IF S=1 THEN CF=2: GOTO 2869 

IF (A(1) AND AZ) AND 2) THEN CF=3: GOTO 2890 

IF (Ati) AND At5) AND 2) THEN CF=4: G0OTD 2898 

IF (A(8) AND A(Z) AND A(4) AND 2) THEN CF=5: GOTO 2800 

IF (At2) AND A(4) AND At5) AND 2) THEN CF=&: GOTO 2898 

IF (AZ) ANDA (3) AND2)IOR (A) ANDA(S)AND2) THEN CF=7:60T0 2890 
IF (At1) AND A(4) AND 2) AND (A(3)=1) THEN CF=B: GDTO 2898 
IF (AI ANDA(4)ANDZDIAND(A(S)=1) THEN CF=9: G0TO 2899 

IF (AB) ANDA(Z)AND2)THEN CF=1®: GOTO 2888 

IF (At2) ANDA (5) AND2) THENCF=11:G0T02890 

REM See ZUFAELLIGE WAHL EINES ZUGES 
ZW=INT (RND (1)*3) +1 

ZW(3)=ZW: CF(3)=CF 

REM» 20... DR NENEEIETENNE: nunusuunuunanenennnnner ZUG ERLAUBT? 
KE=@: KD=® 

FOR I=1 TO 4 

IF V(3,CF,ZW)=ZW THEN KD=1 

IF V(3,CF,D)=I THEN KE=KE+1 

NEXT 1 

IF KD=1 AND KE<4 THEN GOTO 2898 

IF KE=4 THEN GOTO 2948 


GOSUB 2958 

wo=AtC#3+D): IF WG=1 THEN W=W-1: REM......WEISS GESCHLAGEN? 
AlC#3+D}=2: AlAX3+B)=®: REM. ....o220uuunnnnunn nn ZUGNOTIERUNG 
FA=8: GOSUB 9770 

RETURN 
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2958 
2968 
2970 
2986 
2990 
7000 
3018 
362@ 
3050 
3048 
3059 
3066 
3070 
3089 
39708 
3196 
311® 
312 
313@ 
3140 
3158 
3168 
3170 
3180 
3190 
3288 
3218 
3220 
3239 
3248 


REM ee are KOORDINATENBEST IMMUNG 
DN CF GOSUB 3010, 3060, 3100, 3140, 3188, 3220, 3260, 3360 

IF CF<9 THEN G0TD 2998 

ON CF-B GOSUB 3400, 3440, 3489 


RETURN 
REM 0 8 a RB ES 2A BB BT AR SE MB RB A m m ER m DE m Sn m m „uensasnnannene le» SPIELSITUATION 
IF Zw=2 THEN A=1: B=1: C=2: Dei 


IF (At2)=2) AND (ZW=3) THEN A=1: B=8: C=2: D=® 

IF (At0)=2) AND (ZW=3) THEN A=1: B=2: C=2: D=2 

RETURN 

REM ze .uun0nnon.n 2.SPIELSITUATION 
IF (At@)=2) AND (ZW=2) THEN A=0: B=8: C=1: D=1 

IF (At2)=2) AND (ZW=2) THEN A=0: B=2: C=1: D=1 


RETURN 
REM. „u... EEE ERREGER anununenun nn de OPIELSITUATION 
IF Zw=1 THEN A=0: B=1: C=i: D=?2 


IF ZW=3 THEN A=1: B=8: C=2: D= 

RETURN 

REM. „„uoonunonunnennueunuuununnuun nn nun nn nf SPIELSITUATION 
IF ZWw=1 THEN A=0: B=1: C=1: D= 

IF Zw=2 THEN A=1: B=2: C=2: D=2 

RETURN 

REM. nuoosnunununnenununnunun. .unnegesusnunn 3. SPIELSITUATIDN 
IF ZW=2 THEN A=1: B=0: C=2; D=6 

IF ZW=3 THEN A=1: B=i: C=2: D=1 

RETURN 

REM. uunnonnnnnununn Ennuenununnunnnun ......6. SPIELSITUATION 
IF Zw=1 THEN A=1: B=2: C=2: D=2 

IF ZW=2 THEN A=1: B=1: C=2: D=1 

RETURN 
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3250 
3260 
3270 
3280 
32998 
3308 
3310 
3320 
3339 
33548 
3558 
3360 
3370 
3380 
3390 
3400 
3410 
5420 
3430 
3440 
5450 
5450 
3470 
3480 
3490 
33900 
3510 
3920 
3930 
3340 
3990 
35680 


REM. ana ans 7 SPIELSTTURTION 
IF At8)=2 THEN 60T0 3310 

IF ZW=1 THEN A=: B=2: C=1: D=1 

IF Zuw=2 THEN A=8: B=2: C=1: D=2 

IF ZW=3 THEN A=1: B=8: C=2: D=6 

GOTD 3340 

IF ZW=1 THEN A=8: B=0: C=1: D=1 

IF ZW=2 THEN A=8: B=8: C=1: D=d 

IF ZW=3 THEN A=1: B=2: C=2: D=2 

RETURN 

REM. -aununnnsnnuennnununnnnunnnenunnn nn nn na DB. SPIELSITUATION 
IF ZWw=1 THEN A=1: B=1: C=2: Dei 

IF ZW=3 THEN A=0: B=1: C=1: D=0 

RETURN 

REN. Sen ss anne eren I, SPIELSITUATIUN 
IF ZWw=2. THEN A=0: B=1: C=1: D=2 

IF ZWw=3 THEN A=1: B=1: C=2: D=i 

RETURN 

REM. oooununnonsnuusunnennsuennnnne nenn a. 10. SPIELSITUATION 
IF ZWw=1 THEN A=0: B=8: C=1: D=i 

IF ZW=2 THEN A=1: B=ß: C=2: D=0 


RETURN 
REM. 2oonunun enunnnunnununununnnnunnennnnnn 11. SPIELSITUATION 
IF ZwW=2 THEN A=®: B=2: C=1: Dal 


IF ZW=3 THEN A=1: B=2: C=2: D=2 


RETURN 

REM. „uuoo. „eonunnnnununneen. . UNTERPROGRAMM SPIELENDE PRUEFEN 
REM. ooonoesuunueunnunnennnns „nueunuunen. «LOMPUTER VERLOREN? 
v5=0: VW=8 

REM. .uosununsununnnnnnnunnnn nun. VERLUSTBEDINGUNGEN 1 UND 2 


IF S=8 OR A(8)=1 OR A(1)=1 OR At2)=1 DR KE=4 THEN V5=1 
IF (VvS=1 OR INT(Z/2)-(Z/2)=8) THEN GDTO 3700 
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35970 
3380 
3578 
3680 
3610 
5620 
3650 
3648 
3650 
3668 
3670 
3680 
3698 
3700 
3718 
3720 
3730 
3740 
3758 
3766 
3770 
3780 
3790 
3880 
5810 
3820 
3830 
3840 
3850 
3868 
3870 
3880 
5890 
3900 


REM. unocsneonuuneuuuunnuun nun nn nun nn nen a BEWEGUNGSUNFAEHIG? 
K=0 

FOR I=@ TO 5 

IF A{II<Z THEN GOTD 3680 

IF I<>1 AND I<>4 THEN GOTO 3640 

AA=0: IF (tA(DI=2) AND (AlI+FI<>0) AND (ACI+ZI<S>LIITHEN AA=1 


IF Ar=1 AND (A(I+4)<>1) THEN K=k+1 

IF I<>® AND I<>3 THEN GOTO 3668 

IF ttAtT)=2) AND (AlI+4)<>1) AND (A(1I+3)>0)) THEN K=k+1 

IF IX>2 AND I<>5 THEN GOTO 36488 

IF ttA(D=2) AND (AtI+2)3<>1) AND (A(I+3)>0)) THEN KaKk+1 
NEXT I 

IF K=5 THEN V5=1 

REM. .ousuuoununsuenuunneesuanununenununn. «SPIELER VERLOREN? 
REM. ourunsuunne snnenenenennunene. VERLUSTBEDINGUNGEN 1 UND 2 
IF W=@0 OR At6)=2 OR A(7)=2 OR At8)=2 THEN VW=il 

IF (VW=1) OR (Z/Z<>INT(Z/2)) THEN GOTO 5870 

REM. ssununounnunnnnnnnnennnnunnn nn nun nn» BEWEGUNGSUNFAEHIG? 
=6 

FOR I=3 TO B 

IF AtID<>1 THEN GOTO 3850 

IF I£>3 AND I<>&6 THEN GOTO 3808 

IF ((AtDI=1) AND (AtI-3)>0) AND (AtI-22<2)) THEN KaKkti 

IF I<>4 AND I<>7 THEN GOTO 3830 

AA=0: IF (tA{TDI=1) AND (ALI-FPI>@) AND (AtI-2I<X2)) THEN AA=l 
IF AA=1 AND (AtI-4)<X2) THEN K=k+1 

IF IX>5 AND I<>8 THEN GOTO 3850 

IF ((A{D=1) AND (ALI-FP>O) AND (ALI-4)<X2)) THEN K=K+i 

NEXT I 

IF K=W THEN VW=1 

IF vS=1 THEN V$="DER COMPUTER HAT": VL=VL+1 

IF VwW=1 THEN V$="SIE HABEN" 
IF VS5=1 OR VW=1 THEN PRINT": 
IF VS=1 OR VW=1 THEN PRINT" VERLOREN!" 


INIKINIRI" 5 V$5 
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5718 
3920 
53930 
3948 
5950 
3968 
3970 
398990 
39970 
4000 
4010 
4020 
4038 
4040 
4958 
4968 
4970 
4080 
4098 
41080 
41198 
4120 
41390 
4140 
4150 
4168 
4170 
4180 
41970 
4208 
4210 
4220 
4230 
4248 


IF VS=1 THEN SP$=SP$+"1" 

IF VW=1 THEN SP$=5SP$+"0" 

IF vS=1 OR VW=1 THEN FOR K=1 TO 508: NEXT K 

ZZI=2/2 

IF KE=4 THEN ZZ=7/2-1: CF=CF(ZZ): ZW=ZWIZZ) 

REM...FALLS SCHWARZ VERLOREN, WIRD DER LETZTE ZUG VERBOTEN! 
IF VS=1 THEN V(ZZ,CF,ZW)=ZW 

RETURN 

REM. uaun ou on sun uno nennen nun neun ano une en nenn. SPIELABBRUCH 
PRINT "I WOLLEN SIE DAS SPIEL MIT DEM JETZIGEN" 

PRINT " WISSENSSTAND DES COMPUTERS ABSPEICHERN" 

INPUT" (J/N "SE$ 

IF ESS>"IJ" AND E$S>"N" THEN PRINT"/TT: GOTO 4020 

IF E$="N" THEN END 


REM. oonuunn ee EBENE HERE VON NEUE DATA-ZEILEN 
PRINT | 

Z/= 

1$(1)="4270 DATA": Z$(2)="4290 DATA": 7$(3)="4300 DATA" 


Z$ (4)="4320 DATA": Z$(5)="4330 DATA" 
FOR K=1 TO 3 

FOR I=i TO KItk) 

FOR J=1 TO 4 

W$=RIGHT$ (STR$(V(K,1,J)),1) 


AA=0: IF ((I=1 OR I=7) AND J=1) THEN Z=Z+1: Ah=1 
IF AA=1 THEN PRINT: PRINT Z$(Z)5KI(K)5"N,"5W$5: GOTO 4170 
PRINT", "3485 

NEXT J 

NEXT I 

NEXT K 

PRINT "a"5 

PRINT " UM DIE NEUEN WERTE INS PROGRAMM ZU " 

PRINT " UEBERNEHMEN, BITTE ”RETURN’ DRUECKEN " 

PRINT " UND DAS ABSPEICHERN NICHT VERGESSEN. " 

END 
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4250 
4260 
4270 
4289 
4290 
4.300 

518 
4320 
4.330 


FRE Mia re en a a ee ers ZUG 2 
DATA 3,0,0,0,4,0,8,3,4,0,0,0,4 
BEN ee a ee er ...ZU6 4 


DATA 11,0,0,0,0,0,0,3,4,0,0,0,2,0,0,0,4,0,2,0,4,1,0,0,4 
DATA 0,0,0,4,0,2,3,4,0,0,0,4,0,2,0,4,0,0,3,4 

512 PEN LTE RER ERRENE RESET sunna. ZUG 6 
DATA 11,1,0,0,4,1,0,3,4,0,2,0,4,0,0,3,4,1,0,0,4,0,0,3,4 
DATA 0,0,0,4,0,2,0,4,1,0,0,4,0,0,3,4,1,0,0,4 


READY. 
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Commodore-Steuerzeichen 


In einigen Programmen wurden Commodore-Steuer- 
zeichen verwendet, die zur Bildschirmformatierung und 
Farbgebung in PRINT-Ausgaben dienen. Zur beseren Über- 

folgt eine Tabelle aller verwendeten Steuer- 
zeichen. 

PRINT" ELR-HOME-TASTE UND SHIFT 

PRINT" BILDSCHIRM WIRD GELDESCHT" 

PRINT" ELR-HOME-TASTE" 

PRINT" AUSDRUCK BEGINNT LINKS OBEN" 

PRINT". LURSDOR-RECHTS-TASTE"” 

PRINT" AUSDRUCK BEGINNT EINE SPALTE WEITER RECHTS" 

PRINT"N LURSOR-LINKS-TASTE" 

PRINT" AUSDRUCK BEGINNT EINE SPALTE WEITER LINKS" 

PRINT"M CURSOR-NACH-UNTEN-TASTE" 

PRINT" AUSDRUCK BEGINNT EINE ZEILE WEITER UNTEN" 

PRINT" LURSOR-NACH-OBEN-TASTE" 

PRINT" AUSDRUCK BEGINNT EINE ZEILE WEITER OBEN" 

FRINT"3 CTRL- UND 9-TASTE (ZUSAMMEN ’RVS ON?’)”" 

FRINT" AUSDRUCK ERSCHEINT INVERS" 

PRINT"® CTRL- UND 8-TASTE (ZUSAMMEN ’RVS OFF’)" 

PRINT" INVERSER AUSDRUCK WIRD WIEDER ABGESCHALTET" 


PRINT"FARBBEFEHLE IN EINEM PRINT-BEFEHL" 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT"= 
PRINT" 
PRINT" 
PRINT" 


ETRL- UND 4-TASTE" 
AUSDRUCK WIRD SCHWARZ" 
ECTRL- UND &-TASTE" 
AUSDRUCK WIRD WEISS" 
UTRL- UND 7-TASTE"” 
AUSDRUCK WIRD TUERKIS" 
UTRL- UND 8-TASTE" 
AUSDRUCK WIRD GELB" 
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Kurze Angaben zu den verwendeten Melodien 


Die Melodien sind in der Reihenfolge aufgeführt, 
wie sie im Spiel "Melodien-Raten'" in den DATA-Zeilen 
vorkommen. 

Yesterday: Lennon, McCartney 
Sehr bekannt gewordener 


Die Gedanken sind frei: 


Für Elise: 


Bourree: 


Sag mir, wo die Blumen sind 


whiskey in the jar 
Radetzky-Marsch 


Arie aus Zar und Zimmermann 


Entertainer 


Menuett 
Arie aus dem Freischütz 


Heideröslein 


Wiegenlied 
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Song von den Beatles 


Volkslied mit 
Hintergrund 
Erstmals Ende des 18.Jahr- 
hunderts in den Brienzer 
Märchen aus Bern veröf- 
fentlicht. 


politischen 


Ludwig van Beethoven 
ALbumblatt für Elise 


Johann Sebastian Bach 


Melodie: P. Seger, Text: 
M. Coplet 
bekannt geworden durch 


u.a. Marlene Dietrich 


schottisches Volkslied 


Johann Strauss (Vater) 
Lortzig, 1837: Arie des 
Bürgermeisters 


Ragtime aus dem Film 'Der 


Clou' 
Johann Sebastian Bach 
Carl Maria von Weber 


Text: J. W. v. Goethe, 
Melodie: F. Schubert 


J. Brahms 


Internationale Lied der Pariser Commune 


von 1871 

Alle Vögel sind schon da Lied aus dem 19. Jahrhun- 
dert 

Der Mond ist aufgegangen Joh. Peter Schulz 1790 

Kuckuck, Kuckuk Deutsches Volkslied 

Im Märzen der Bauer Deutsches Volkslied 

Der Winter ist vergangen Volkslied aus dem 17. 
Jahrhundert 

Clementine Amerikanisches Volkslied 

Der Jäger aus Kurpfalz Deutsches Volkslied 

Nobody knows the trouble I've seen Negro Spiritual 

El Condor Pasa Peruanisches Volkslied aus 


dem 18. Jahrhundert, be- 
kannt geworden durch Paul 


Simon 
Scarborough Fair englische Ballade aus dem 
| 17. Jahrhundert, bekannt 
gemacht durch Simon & 
Garfunkel 
Havah Nagila Hebraisches Volkslied 
Blowin' in the wind Melodie und Text: Bob Dylan 
Sur le pont d'Avignon Französisches Volkslied 
Schlußchor aus 'Carmen' G. Bizet, 1875 
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J.Elsing H.Sterner AWagner 


Anregungen und 
Erläuterungen in BASIC 


Programme auf Diskette/Kassette erhältlich 


Der C 64 bietet vielseitige grafische 
Möglichkeiten. Dieses Buch gibt In- 
formationen wie man Grafikfunktio- 
nen anwendet — Informationen, die 
man im Commodore-Handbuch 
nicht findet. Ausgehend von Grafi- 
ken mit den festen: Grafik-Zeichen 
wird systematisch zu den an- 
spruchsvolleren Möglichkeiten, illu- 
striert durch typische Beispiele, ge- 
führt. 


1983. 138 S. 1 Folie. $piralh. DM 38,-/ 
Fr. 38.-/$ 342,-. ISBN 3-88322-027-2 


[@ ISO 


Programmeauf Diskette/Kassette erhältlich 


Programmerreichen von stöchiome- 
trischen Berechnungen bis zur Ele- 
mentedatei.Besonders genutzt wer- 
den die grafischen Möglichkeiten. 
Die Anwendungsbeispiele gehen 
von Strukturformeln, grafischen Dar- 
stellungen von Versuchsanordnun- 
gen und Funktionen bis zur 3-D Gra- 
fik im Detail. 

In Vorb. März 1984. Ca. 220 Seiten. Spi- 


ralh. Ca. DM 48,-/ca. Fr. 48.-/ca.S 432,- 
ISBN 3-88322-049-3 


Programme auf Diskette/Kassette erhältlich 


Die Programmierung des neuen 
Video Interface Chips 6567 ist das 
Hauptthema des Buches. Basic- 
Grafikprogramme werden von 
Maschinenprogrammen zum Punkt- 
setzen und Linienzeichnen unter- 
stützt, was die Schnelligkeit um ein 
Vielfaches erhöht. Teilweise werden 
Basic-Programme direkt in Maschi- 
nensprache parallel dargestellt. 

In Vorb. April 1984. Ca. 160 Seiten. 


Spiralh. Ca. DM 38,-/ca. Fr. 38.-/ca. 
$ 342,-. ISBN 3-88322-051-5 


Programme auf Diskette/Kassette erhältlich 


Grafikprogramme werden »gehirn- 
gerecht: aufbereitet, d.h. man sieht, 
wie Grafikbefehle »gehen«: Neue Art 
des Formats - man bekommt ein 
Bild« des Befehls - Demo-Program- 
me unterstützen das Gedächtnis - 
Bildschirm-Hardcopies als schnel- 
les Nachschlagewerk : farbige Über- 
sich'skarten zur Programmier- 
Erleichterung. 

In Vorb. April 1984. Co. 160 S. Spiralh. 


Ca. DM 38,-/ca. Fr. 38.-/ca. S 342,- 
ISBN 3-88322-056-6 
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J.Elsing H.Sterner AWagner 


BASIC-Einführung und 
ke spezifischer 


Programme auf Diskette/Kassette erhältlich 


Dieses Buch bietet eine systemati- 
sche Einführung in die Programmier- 
sprache BASIC. Außer vielen kleine- 
ren Programmen zur|llustrierung der 
BASIC-Anweisungen gibt es eine 
umfangreiche Programmsammlung 
zu den verschiedensten Themenbe- 
reichen. Diebesonderen Fähigkeiten 
des C 64 werden mit vielen Pro- 
grammbeispielen erläutert. 

1983. 356 Seiten. Spiralh. DM 56,-/ 


Fr. 56.-/S 498,- 
ISBN 3-88322-029-9 


A.Falk H.Sterner 


NING 
MINDEN 
COMRUNTER 


englisch/franzosisch 


Programme auf Diskette/Kassette erhältlich 


Das Buch behandelt den Einsatz von 
Mikrocomputern im Fremdsprachen- 
lernprozeß. Vom Inhalt: Vokabel-Trai- 
ningsprogramm, breiter Multiple- 
Choice Trainingsblock, Übungen zur 
Erweiterung des Wortschatzes, für 
Alltagssituationen etc. Zahlreiche 
Beispiele, engl. und franz., ausführ- 
lich kommentierte Programme. 

In Vorb. April 1984. Ca. 220 Seiten. Geb. 


Ca. DM 58,-/ca. Fr. 58.-/c0.$ 522,- 
ISBN 3-88322-055-8 


COMMODORE 


Programme auf Diskette/Kassette erhältlich 


Eine Hilfestellung für wirtschaftliche 
Entscheidungen sind Programm- 
sammlungen, die die guten Grafik- 
und Farbmöglichkeiten des Compu- 
ters nutzen. Diagramme, Sprites, Op- 
tische Darstellungen von Simulatio- 
nen werden eingesetzt, die die Er- 
gebnisse verdeutlichen. Die finanz- 
mathematischen Grundlagen sind 
zu jedem Programm beschrieben. 

1983. 224 Seiten. Mit mehr. Abb. Spiralh. 


DM 38,-/Fr. 38.-/$ 342,- 
ISBN 3-88322-030-2 


| MATHEMATIK 


COMMODORE 


‚Dieses Buch enthält 40 mathemati- 
scheProgramme ausdenBereichen: 
IMehrregister-Arithmetik -— Zahlen- 
theorie - Kombinatorik —- Algebra — 
Geometrie - numerische Mathema- 
tik. Neu ist die Langzahl-Arithmetik. 
Sie gestattet die Grundrechenarten 
für Zahlen bis 255 Stellen. 

1984. 260 Seiten. Kart. DM 42,-/ 


Fr. 42.-/S 378,- 
ISBN 3-88322-048-5 


Kı 
So 


a ma un 
MUSIK 
COMMODORE 


er Ol 
S 


mmierung 
Programme auf Diskette/Kassette erhältlich 


Bekanntlich verfügt der C 64 »von 
Haus aus« über einen Baustein, der 
die Erzeugung von mehrstimmiger 
Musik erlaubt. Sowohl der Anfänger 
ohne musikalische Vorkenntnisse 
wirdangesprochen, als auch derMu- 
siker, der seine Ideen mit Hilfe des 
Computers umsetzen möchte. 

In Vorb. Mai 1984. Ca. 200 Seiten. Spiralh. 


Ca. DM 38,-/ca. Fr. 38.-/ca. S 342,- 
ISBN 3-88322-046-9 


Günther Daubach 


Wörterbuch 
der 


Computerei 


Mit Erläuterungen der wichtigsten Begriffe 
und Fehlermeldungen 


N englisch deutsch 
j deutsch -englisch 


Werhatnicht bereits verzweifeltver- 
sucht, das »Computerchineseng- 
lisch« zu verstehen? Hier hilft das 
Wörterbuch der Computerei mit sei- 
nen über tausend Begriffen. Außer- 
dem sind die wichtigsten Begriffe er- 
klärt. Ein handliches Nachschlage- 
werk fürjeden, dersichmitCompute- 
reibeschäftigt. 

1983. 2., erw. Aufl. 144 Seiten. 


Kart. DM 32,-/Fr. 32.-/S 288,- 
ISBN 3-88322-026-4 


| FR SCHNEN 
- SPRACHE | 


< COMMODORE 
u m 


Eine Einführung 
it zahlreichen Anwendungs- 


Programme auf Diskette/Kassette erhältlich 


Dieses Buch führt nacheinerKurzbe- 
schreibung der Grundlagen direkt in 
die Maschinensprachen-Program- 
mierung ein, ohne erst die Befehle 
auf dem Trockenen: zu besprechen. 
DerBenutzer arbeitet sofort mitlauf- 
fähigen Programmen. Befehle wer- 
den dann eingeführt, wenn sie erfor- 
derlich sind. 

In Vorb. April1984.Ca.260Seiten.Spiralh. 


Ca. DM 56,-/ca. Fr.56.-/ca.S 498,- 
ISBN 3-88322-047-7 


DietmarHerrmann 


Herrmanns 
Progrumm 
Summlung 


Der erste Band einer Reihe, die mit 
zahlreichen Programmen für Spiele 
und »ernsthafte« Themen den Com- 
puter dem Benutzer näherbringt. Der 
Autor hataus seiner Schulpraxis her- 
aus Programme entwickelt, die das 
Lernen und Spielen mit dem Compu- 
ter zum Vergnügen machen. 


1983. 234 Seiten. Kart. DM 32,-/Fr. 32.-/ 
$ 288,— 
ISBN 3-88322-013-2 


etmar Hermann 


Hermmanns 
Progrumm 
Summlung 


2 CBM 2000 3000, 
00, BOOOVCZO 


Jetzt wird es ernst: Hier wird Ihnen 
gezeigt, wie Sie mit dem Computer 
die Lohn- oder Einkommensteuerer- 
klärung erledigen, zeigt wohin die 
Staatsverschuldung geht - oder 
auch Ihre eigene, berechnet Ihre Zin- 
sen (Soll oder Haben) auf der Bank, 
oder wie Sie Ihr Haus finanzieren 
können. 


Sn 204 Seiten. Kart. DM 32,-/Fr. 32.-/ 
288,- 
ISBN 3-88322-014-0 


a ON 

den Anwender m 
m Salsa Darsung 
Programme auf Diskette/Kassette erhältlich 


Eine Hilfestellung für wirtschaftliche 
Entscheidungen sind Programm- 
sammlungen, die die guten Grafik- 
und Farbmöglichkeiten nutzen. 
Diagramme, Sprites, optische Dar- 
stellungen werden eingesetzt, 
mehrfarbig auch im Drucker. Die 
finanzmathemafischen Grundlagen 
sind zum Programm beschrieben. 

In Vorb. März 1984. Ca. 200 Seiten. Spi- 


ralh. Ca. DM 42,-/ca. Fr. 42.-/ca. $ 378,- 
ISBN 3-88322-090-6 


Dietmar Herrmann 


Herrmanns 
Progrumm 
Summlung 


Dieses Buch enthält 40 mathemati- 
sche ProgrammeausdenBereichen: 
Mehrregister-Arithmetik — Zahlen- 
theorie - Kombinatorik — Algebra - 
Geometrie - numerische Mathema- 
tik. Neu ist die Langzahl-Arithmetik. 
Sie gestattet die Grundrechenarten 
für Zahlen bis 255 Stellen. 


1983. 248 Seiten. Kart. DM 42,-/Fr. 42.-/ 
$ 378,-. ISBN 3-88322-016-7 


& TI-BASIC FE 

mputer- zum Spielen u 

Erweitern mit Knien hd Ticke 
Auch auf Kassette lieferbar. 


Die Programme sind in TI-BASIC ge- 
schrieben, verwenden die Grund- 
konfiguration des Computers und 
machen ausgiebig Gebrauch von 
den Farbgrafikmöglichkeiten sowie 
dem Tongenerator. Sie sind so ange- 
legt, daß derEinsteiger schnell Erfol- 
ge erzielt, der Fortgeschrittene aber 
die Spielprogramme nach Belieben 
ergänzen, erweitern oder variieren 
kann. 


1983. 220 Seiten. Kart. DM 38,-/Fr. 38.-/ 


- 5 342,-. ISBN 3-88322-045-0 


GB 8050 
BOS-LISTING 


Das Buch istsowohlfürProgrammie- 
rer als auch für Fans. Sie bekommen 
Einblick in das Zusammenwirken 
von zwei6502-Prozessoren undden 
Datenverkehr über PlAs mit dem 
Rechner, dieses System arbeitet 
selbständig parallel. Ein Leckerbis- 
sen, wenn man den Computer noch 
besser nutzen will. 

1982. 120 Seiten. Mit zahlr. Programmen. 


RingO. DM 104,-/Fr. 104.-/S 936,- 
ISBN 3-88322-015-9 


Zeichenerklärung 

Viele Programme, die in den 
Büchern abgedruckt sind, erhal- 
ten Sie auch auf [@ | Diskette 
oder [OO] Kassette. Achten Sie 
auf die Kennzeichnung bei den 
Büchern, genaue Beschreibung 
in unserem Software-Katalog. 


Allgemeines 

Unsere gebundenen Preise ver- 
stehen sich incl. ges. MwSt. zu- 
zügl. Versandspesen. Stand: 
1. 3.1984, Änderungen und Irr- 
tum vorbehalten. Es gelten aus- 
schließlich unsere Liefer- und 
Zahlungsbedingungen vom 
Februar 1984. 

IWT-Bücher erhalten Sie in jeder 
guten Buchhandlung, imCompu- 
ter-Fachhandel, in Kaufhäusern 
und direkt beim Verlag. 


IWT Verlag GmbH, Danhlienstr. 4, 
Postf. 100243, 8011 Vaterstet- 
ten, Post Baldham, Tel. (08106) 
31017, Telex 5213989 iwt 


IWT Software Service GmbH, 
Höhestraße 66, Postfach 1325, 
5093 Burscheid |], Tel. (02174) 
62815, Telex 5213989 iwt 
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J. Elsing H. Sterner A. Wagner 


Spiele und 
Simulationen auf dem 
Commodore 64 


„Lernende Programme“ sind die Attraktion dieses 
Buches: mit Ihrer Hilfe kann der Computer dazulernen, 
damit er Ihnen ein interessanter Gesellschafter bei den 
verschiedensten Denk- und Ratespielen dieses 
Buches bleibt. 

Auch die Knobeleien, die hier aufgeführt sind, werden 
Ihnen den Kopf ganz schön rauchen lassen, wenn es 
gar nicht mehr weiter geht, hilft Ihnen sicher Ihr 
Commodore 64! 


ISBN 3-88322-050-7 


